(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    187706,       4322]
NotebookOptionsPosition[    168190,       3868]
NotebookOutlinePosition[    169205,       3896]
CellTagsIndexPosition[    169162,       3893]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["11.3", "HistoryData",
  CellTags->"New",ExpressionUUID->"01178835-b037-47a5-98ee-ac45ede6de0b"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"a25bb528-601b-440f-b2af-5e6b00ccacab"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"0c18700e-d89e-425d-8d83-fbadd3f29eba"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"4b9238f2-5554-4938-868e-85919225078c"]
}], "History",
 CellID->1247902091,ExpressionUUID->"b3acf963-77f0-4acc-b3b1-01284f278fd8"],

Cell["Created by: meghanr on 07-11-2017 17:14:57", "AuthorDate",
 CellID->817336632,ExpressionUUID->"9b4024b8-2d77-4550-85a4-99cf12271ec4"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"131cad27-bf81-44ed-8bdd-8461ff05b424"],

Cell["Tutorial", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"578e4d23-0382-4326-8c1a-319f1b8c1c5e"],

Cell["MongoLink", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"738d04f0-ff33-4a6d-bd45-b4ab5b312956"],

Cell["MongoLink`", "Categorization",
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"d10e7617-8943-4aef-9bec-6dce239966f0"],

Cell["MongoLink/tutorial/MongoLinkSimpleTutorial", "Categorization",
 CellLabel->"URI",ExpressionUUID->"7f107846-aadc-4ae1-ae85-9d4e752dd934"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Synonyms", "SynonymsSection",
 CellID->1427418553,ExpressionUUID->"ebd8177a-2846-4c14-a259-39a91c2936ab"],

Cell["XXXX", "Synonyms",
 CellID->1251652828,ExpressionUUID->"4f2c3275-c4e6-450c-a4c6-59a92c9d23f8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->1427428552,ExpressionUUID->"68fd4283-1b4f-408e-943b-11eaa952aa00"],

Cell["MongoDB, Mongo, Database, NoSQL", "Keywords",
 CellID->1251852827,ExpressionUUID->"61f70817-b4f2-4df9-8c08-3d9cf8ebdd50"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771,ExpressionUUID->"b9f9bd79-beb7-48cf-8795-804d8111fad1"],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->115134701,ExpressionUUID->"67a5466a-9fee-49c0-b8f1-1b7b47ff346d"],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985,ExpressionUUID->"9fc76e00-3782-4754-a000-5c0d7bd86c4c"],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->787641479,ExpressionUUID->"de3255c7-8280-4289-9788-8812f70f8e52"],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->489188983,ExpressionUUID->"0cae59fb-3258-420b-b4e0-c1088463f991"],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->267986155,ExpressionUUID->"b07f7991-8242-4eb9-8f21-f38cbe61adf8"],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->55052072,ExpressionUUID->"a6010038-cea5-4444-8a2b-b82ab62fdb8b"],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->125741376,ExpressionUUID->"c1b4a2e6-7b5a-47fa-9061-872d45315ea9"],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->31040295,ExpressionUUID->"298b53ab-abe3-47a8-aef3-62af9690dcd7"],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365,ExpressionUUID->"b2b6ac9a-f7ff-44fb-9db1-213d94bd234e"]
}, Closed]],

Cell[CellGroupData[{

Cell["MongoLink Introduction", "Title",
 CellID->509267359,ExpressionUUID->"6a1ad868-7ab1-4ab2-b808-39ad993df5ea"],

Cell[TextData[{
 StyleBox["MongoLink is a set of tools for working with ",
  CellDingbat->Cell[
    BoxData[
     TooltipBox[
      Cell["meghanr      ", "TentativeID"], "2017-07-10"]], 
    "TentativeWrapper"]],
 StyleBox[ButtonBox["MongoDB",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.mongodb.com"], None}],
  CellDingbat->Cell[
    BoxData[
     TooltipBox[
      Cell["meghanr      ", "TentativeID"], "2017-07-10"]], 
    "TentativeWrapper"]],
 StyleBox[". This tutorial shows how to perform the most common MongoDB \
operations using MongoLink.",
  CellDingbat->Cell[
    BoxData[
     TooltipBox[
      Cell["meghanr      ", "TentativeID"], "2017-07-10"]], 
    "TentativeWrapper"]]
}], "Text",
 CellID->774160482,ExpressionUUID->"77fa2771-b632-4320-9879-d1346e27ef77"],

Cell[TextData[{
 "This tutorial assumes that a MongoDB server is running on your local \
machine at the default host and port. For platform-dependent instructions for \
running a MongoDB server locally, see ",
 ButtonBox["this",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://docs.mongodb.com/manual/installation/"], None}],
 "."
}], "Text",
 CellID->1811460344,ExpressionUUID->"57bd6018-7502-4ee4-b434-ade3c5b53b9e"],

Cell[CellGroupData[{

Cell["Making a Local Connection", "Subsection",
 CellID->890255051,ExpressionUUID->"9cf6ee81-2631-479d-9e3a-e0c7ca271b08"],

Cell[CellGroupData[{

Cell["Load MongoLink:", "Text",
 CellID->2123252264,ExpressionUUID->"4ac2b6a7-f9e6-4f3b-a4bf-2d97cc633ab5"],

Cell[BoxData[
 RowBox[{"Needs", "[", "\"\<MongoLink`\>\"", "]"}]], "Input",
 CellLabel->"In[33]:=",
 CellID->783915468,ExpressionUUID->"e0e00b8a-ae36-4423-975c-7ae12c14545d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Create a client connection using the default host ",
 Cell[BoxData[
 "\"\<\!\(\*StyleBox[\"localhost\", \"TI\"]\)\>\""], "InlineFormula",
  ExpressionUUID->"bb0a48fb-3a5a-4698-a6e8-14ea76448cb6"],
 " and port ",
 Cell[BoxData[
 "27017"], "InlineFormula",ExpressionUUID->
  "169335d9-3394-474b-aaca-f2a5f77406ec"],
 " (this is the default hostname and port when running the MongoDB server on \
your local machine):"
}], "Text",
 CellID->1490502931,ExpressionUUID->"f613f29c-0307-4358-9e8e-a6385a2d0594"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"client", "=", 
  RowBox[{"MongoConnect", "[", "]"}]}]], "Input",
 CellLabel->"In[5]:=",
 CellID->2058623809,ExpressionUUID->"ef87ce5c-7ece-4991-8253-c2d7cfaf99e9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MongoClient",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["1", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["1", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`MongoClient[
   MongoLink`PackageScope`clientMLE[1]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[5]=",
 CellID->430097690,ExpressionUUID->"0420cd18-d307-46fd-b9bf-5aef460e2f00"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The port and host can also be explicitly specified:", "Text",
 CellID->433122057,ExpressionUUID->"2989d87d-bf12-4a3f-8bfc-c1ab6748a039"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"client", "=", 
  RowBox[{"MongoConnect", "[", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{"\"\<Host\>\"", "\[Rule]", "\"\<localhost\>\""}], ",", 
     RowBox[{"\"\<Port\>\"", "->", "27017"}]}], "|>"}], "]"}]}]], "Input",
 CellLabel->"In[7]:=",
 CellID->1246814610,ExpressionUUID->"d7af958d-1a83-4288-b74e-3fa05f8cd120"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MongoClient",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`MongoClient[
   MongoLink`PackageScope`clientMLE[2]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[7]=",
 CellID->1663457543,ExpressionUUID->"13159e5d-1cac-4e78-bb95-d5b024620e9d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Or use the ",
 ButtonBox["MongoDB Connection String URI",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://docs.mongodb.com/manual/reference/connection-string/"], None},
  ButtonNote->
   "https://docs.mongodb.com/manual/reference/connection-string/"],
 " format:"
}], "Text",
 CellID->128274779,ExpressionUUID->"3aa3756e-63e3-4d64-92d1-087d5f64bd9b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"client", "=", 
  RowBox[{
  "MongoConnect", "[", "\"\<mongodb://localhost:27017/\>\"", "]"}]}]], "Input",\

 CellLabel->"In[8]:=",
 CellID->75053706,ExpressionUUID->"2f74bc32-d99a-44c6-947f-2bfe6a80c08d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MongoClient",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["3", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["3", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`MongoClient[
   MongoLink`PackageScope`clientMLE[3]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[8]=",
 CellID->1581134955,ExpressionUUID->"0f4cb3e5-158d-4570-b153-c139b17c5142"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Connecting to a Database", "Subsection",
 CellChangeTimes->{{3.725007284571581*^9, 3.7250072865451193`*^9}},
 CellID->1723258136,ExpressionUUID->"e7959c42-3e89-4dfa-96f5-9df1aa395c98"],

Cell[CellGroupData[{

Cell[TextData[{
 "A MongoDB server can host multiple independent ",
 ButtonBox["databases",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://docs.mongodb.com/manual/reference/glossary/#term-database"], 
    None},
  ButtonNote->
   "https://docs.mongodb.com/manual/reference/glossary/#term-database"],
 ". List the available databases on the server:"
}], "Text",
 CellID->882393254,ExpressionUUID->"e74e825c-3346-4b9f-a23f-1d47b8f73640"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MongoGetDatabaseNames", "[", "client", "]"}]], "Input",
 CellLabel->"In[9]:=",
 CellID->1836483588,ExpressionUUID->"5f9a60ce-feee-4a0b-9e8d-3e5b5018caf6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"MachineLearningData\"\>", ",", "\<\"Test\"\>", 
   ",", "\<\"WolframTestDB\"\>", ",", "\<\"admin\"\>", ",", "\<\"local\"\>"}],
   "}"}]], "Output",
 CellLabel->"Out[9]=",
 CellID->228931126,ExpressionUUID->"4c4faaf6-07b9-47cd-9e10-85b677c6da21"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Connect to a database:", "Text",
 CellID->2129001956,ExpressionUUID->"5a88c78a-1f2d-41d0-ba1c-b3c7ef56a6d2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"db", "=", 
  RowBox[{"client", "[", "\"\<WolframTestDB\>\"", "]"}]}]], "Input",
 CellLabel->"In[10]:=",
 CellID->1572603381,ExpressionUUID->"f28e5f4f-18b2-4a13-bd5b-e73025f47c83"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MongoDatabase",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["1", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Database: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"WolframTestDB\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["1", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Database: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"WolframTestDB\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`MongoDatabase[
   MongoLink`PackageScope`databaseMLE[1], "WolframTestDB", 
   MongoLink`MongoClient[
    MongoLink`PackageScope`clientMLE[3]]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[10]=",
 CellID->163055421,ExpressionUUID->"7b1c1682-cce5-4fd0-a372-edbc11f0e6ba"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["This is equivalent to the function:", "Text",
 CellID->1007565939,ExpressionUUID->"9715e9a1-5e16-414f-aced-d8714ad2fd20"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"db", "=", 
  RowBox[{"MongoGetDatabase", "[", 
   RowBox[{"client", ",", "\"\<WolframTestDB\>\""}], "]"}]}]], "Input",
 CellLabel->"In[11]:=",
 CellID->1938674796,ExpressionUUID->"60a28071-58fa-48c5-b5b9-243b37c5d17c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MongoDatabase",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Database: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"WolframTestDB\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Database: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"WolframTestDB\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`MongoDatabase[
   MongoLink`PackageScope`databaseMLE[2], "WolframTestDB", 
   MongoLink`MongoClient[
    MongoLink`PackageScope`clientMLE[3]]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[11]=",
 CellID->744666744,ExpressionUUID->"a49538c9-f584-4f66-988b-0dac7f22d0d3"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Connecting to a Collection", "Subsection",
 CellChangeTimes->{{3.725007291739892*^9, 3.7250072930811033`*^9}},
 CellID->575465111,ExpressionUUID->"b3f29d96-cbf2-4d20-b469-fa6fde8a6e89"],

Cell[CellGroupData[{

Cell[TextData[{
 "A ",
 ButtonBox["collection",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://docs.mongodb.com/manual/reference/glossary/#term-collection"]\
, None},
  ButtonNote->
   "https://docs.mongodb.com/manual/reference/glossary/#term-collection"],
 " is a collection of documents. Getting a collection is the same getting a \
database: "
}], "Text",
 CellID->2015143029,ExpressionUUID->"7e2671d0-21b3-44a9-a8df-49ca2faf8dc4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"coll", "=", 
  RowBox[{"db", "[", "\"\<WolframTest\>\"", "]"}]}]], "Input",
 CellLabel->"In[12]:=",
 CellID->1775497189,ExpressionUUID->"3ac84864-4fc6-4a60-8a8e-77d28ee0e8ed"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MongoCollection",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["1", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Collection: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"WolframTest\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Database: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"WolframTestDB\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["1", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Collection: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"WolframTest\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Database: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"WolframTestDB\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`MongoCollection[
   MongoLink`PackageScope`collectionMLE[1], "WolframTestDB", "WolframTest", 
   MongoLink`MongoClient[
    MongoLink`PackageScope`clientMLE[3]]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[12]=",
 CellID->2133729099,ExpressionUUID->"e159af58-08f2-4301-b720-95487d364d69"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["The above syntax is equivalent to:", "Text",
 CellID->26866143,ExpressionUUID->"668dd906-343e-4557-8aa3-36d4fc02e966"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"coll", "=", 
  RowBox[{"MongoGetCollection", "[", 
   RowBox[{"db", ",", "\"\<WolframTest\>\""}], "]"}]}]], "Input",
 CellLabel->"In[13]:=",
 CellID->1052116792,ExpressionUUID->"50ff1664-b624-49aa-9319-369c07d67622"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MongoCollection",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Collection: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"WolframTest\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Database: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"WolframTestDB\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Collection: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"WolframTest\"", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Database: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"WolframTestDB\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`MongoCollection[
   MongoLink`PackageScope`collectionMLE[2], "WolframTestDB", "WolframTest", 
   MongoLink`MongoClient[
    MongoLink`PackageScope`clientMLE[3]]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[13]=",
 CellID->701825466,ExpressionUUID->"131683ff-5a69-411c-921a-a8dc94b5edf6"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 StyleBox["Note",
  FontWeight->"Bold"],
 ": databases and collections are created lazily, so getting a collection or \
database does not perform any operations on the MongoDB server. They are only \
created once the first document is inserted into them."
}], "Text",
 CellID->1417928168,ExpressionUUID->"3fcdf8fa-c19e-4cf7-925f-a69b6528c4e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Documents", "Subsection",
 CellID->1836679249,ExpressionUUID->"eb49e267-b1ae-4000-97e9-e7d43e9abd31"],

Cell[CellGroupData[{

Cell[TextData[{
 "A Document in MongoDB can be viewed as a (possibly) nested ",
 Cell[BoxData[
  ButtonBox["Association",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Association"]], "InlineFormula",ExpressionUUID->
  "299a7a61-e395-4db1-a329-60e66415b7c4"],
 " whose keys must be strings and whose values are limited to a small set of \
types (for example, strings, lists, integers, dates, etc). One simple example \
of a document:"
}], "Text",
 CellID->348395779,ExpressionUUID->"3645cf52-1a29-4faf-a200-4a6ef3934a22"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cat1", "=", 
  RowBox[{"<|", 
   RowBox[{
    RowBox[{"\"\<age\>\"", "->", "3"}], ",", 
    RowBox[{"\"\<sex\>\"", "->", "\"\<female\>\""}], ",", 
    RowBox[{"\"\<date\>\"", "->", 
     RowBox[{"DateObject", "[", "]"}]}]}], "|>"}]}]], "Input",
 CellLabel->"In[14]:=",
 CellID->1904949283,ExpressionUUID->"d033e911-c70f-482f-81dd-2f39c0c92413"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"age\"\>", "\[Rule]", "3"}], ",", 
   RowBox[{"\<\"sex\"\>", "\[Rule]", "\<\"female\"\>"}], ",", 
   RowBox[{"\<\"date\"\>", "\[Rule]", 
    TemplateBox[{RowBox[{"\"Thu 14 Dec 2017 01:49:16\"", 
        StyleBox[
         RowBox[{"\"GMT+\"", "\[InvisibleSpace]", 
           StyleBox["2.`", NumberMarks -> False, StripOnInput -> False]}], 
         FontColor -> GrayLevel[0.5]]}],RowBox[{"DateObject", "[", 
        RowBox[{
          RowBox[{"{", 
            
            RowBox[{"2017", ",", "12", ",", "14", ",", "1", ",", "49", ",", 
              "16.178059`7.961501399713955"}], "}"}], ",", "\"Instant\"", ",",
           "\"Gregorian\"", ",", "2.`"}], "]"}]},
     "DateObject",
     Editable->False]}]}], "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[14]=",
 CellID->776550139,ExpressionUUID->"06592b21-a6e6-46cc-976c-3b63803e9d7b"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 "For a list available types that can be used as values, see the \
documentation for the ",
 Cell[BoxData[
  ButtonBox["\"\<BSON\>\"",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/format/BSON"]], "InlineFormula",ExpressionUUID->
  "ec40373f-4740-46a6-832e-018f5f7d3688"],
 " format."
}], "Text",
 CellID->518034447,ExpressionUUID->"b17e4691-bf3b-4181-8038-69a2f182f56f"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Inserting a Single Document into a Collection", "Subsection",
 CellID->166814131,ExpressionUUID->"b3a29b56-1649-471e-8a15-41574a119c3d"],

Cell[CellGroupData[{

Cell[TextData[{
 "Insert the previous document into the ",
 Cell[BoxData["\<\"WolframTest\"\>"], "InlineFormula",ExpressionUUID->
  "93a93a06-871f-4e18-bd6a-386606e3f35d"],
 " collection:"
}], "Text",
 CellID->1939290392,ExpressionUUID->"179a04e3-fda0-40ac-b52d-5d9ced1be073"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"inserted", "=", 
  RowBox[{"MongoCollectionInsert", "[", 
   RowBox[{"coll", ",", "cat1"}], "]"}]}]], "Input",
 CellLabel->"In[15]:=",
 CellID->598403327,ExpressionUUID->"81411af9-80fe-4afa-be93-fb89ee539517"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MongoInsertResult",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"InsertedCount: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["1", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Acknowledged: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["True", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"InsertedCount: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["1", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Acknowledged: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["True", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`MongoInsertResult[
   Association["Acknowledged" -> True, "InsertedIDs" -> {
      MongoLink`BSONObjectID["5a31bc7dd682eea61f6c1504"]}, "InsertedCount" -> 
    1]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[15]=",
 CellID->1062890344,ExpressionUUID->"90bd6d45-eb47-4c8a-a345-a0d9d6396316"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Get a list of the inserted document IDs:", "Text",
 CellID->1292760799,ExpressionUUID->"9942e14e-4509-443e-9395-35473c447a74"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ids", "=", 
  RowBox[{"inserted", "[", "\"\<InsertedIDs\>\"", "]"}]}]], "Input",
 CellLabel->"In[16]:=",
 CellID->1639233800,ExpressionUUID->"7d8933a7-a9b1-4971-9167-684ab05c180e"],

Cell[BoxData[
 RowBox[{"{", 
  InterpretationBox[
   RowBox[{
    TagBox["BSONObjectID",
     "SummaryHead"], "[", 
    DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
     TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
             GridBox[{{
                RowBox[{
                  TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"5a31bc7dd682eea61f6c1504\"", "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}], True -> GridBox[{{
             GridBox[{{
                RowBox[{
                  TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                  "\[InvisibleSpace]", 
                  TagBox["\"5a31bc7dd682eea61f6c1504\"", "SummaryItem"]}]}}, 
              GridBoxAlignment -> {
               "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
              False, GridBoxItemSize -> {
               "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
              GridBoxSpacings -> {
               "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
              BaseStyle -> {
               ShowStringCharacters -> False, NumberMarks -> False, 
                PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
           GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
           BaselinePosition -> {1, 1}]}, 
        Dynamic[Typeset`open$$], ImageSize -> Automatic]},
      "SummaryPanel"],
     DynamicModuleValues:>{}], "]"}],
   MongoLink`BSONObjectID["5a31bc7dd682eea61f6c1504"],
   Editable->False,
   SelectWithContents->True,
   Selectable->False], "}"}]], "Output",
 CellLabel->"Out[16]=",
 CellID->1795531912,ExpressionUUID->"9ac668aa-0b13-4198-814c-d1618d187acd"]
}, Open  ]]
}, Open  ]],

Cell[TextData[{
 StyleBox["Note",
  FontWeight->"Bold"],
 ": Every MongoDB document must have an ",
 Cell[BoxData[
 "\"\<_id\>\""], "InlineFormula",ExpressionUUID->
  "9eda58f9-9667-478d-b1fd-2b567e9f6810"],
 " key. If this key is missing from the document being inserted, it is \
automatically added to the document with value of type ",
 Cell[BoxData[
  ButtonBox["BSONObjectID",
   BaseStyle->"Link",
   ButtonData->"paclet:MongoLink/ref/BSONObjectID"]], "InlineFormula",
  ExpressionUUID->"ac576da1-ed6e-4354-af82-3aef255d0fb3"],
 "."
}], "Text",
 CellChangeTimes->{{3.7250073277217617`*^9, 3.7250073348580647`*^9}},
 CellID->2092489834,ExpressionUUID->"e4567ee4-fea2-4b8c-8abe-549471265bf2"],

Cell[CellGroupData[{

Cell[TextData[{
 "A ",
 Cell[BoxData[
  ButtonBox["BSONObjectID",
   BaseStyle->"Link",
   ButtonData->"paclet:MongoLink/ref/BSONObjectID"]], "InlineFormula",
  ExpressionUUID->"ce480ae3-03c0-4616-a67a-ed4c30fe0f62"],
 " object contains various metadata related to its creation:"
}], "Text",
 CellChangeTimes->{{3.7250073409147263`*^9, 3.725007346398547*^9}},
 CellID->1067457831,ExpressionUUID->"522ae59d-2332-4b50-a8a4-29cf5253df8d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"First", "@", "ids"}], "]"}]], "Input",
 CellLabel->"In[18]:=",
 CellID->1132788613,ExpressionUUID->"30ab5aac-7810-4119-af88-8c1958a20d48"],

Cell[BoxData[
 TemplateBox[{TagBox[
    DynamicModuleBox[{
     TypeSystem`NestedGrid`PackagePrivate`$state$$ = 
      Data`UnorderedAssociation[
       "RowCount" -> 20, "Length" -> 4, "InitialType" -> 
        TypeSystem`Struct[{
          "GenerationTime", "MachineID", "ProcessID", "Counter"}, {
           TypeSystem`Atom[DateObject], 
           TypeSystem`Atom[Integer], 
           TypeSystem`Atom[Integer], 
           TypeSystem`Atom[Integer]}], "Shape" -> 
        TypeSystem`PackageScope`DocumentShape[
          
          Association[{"GenerationTime"} -> 
           TypeSystem`PackageScope`AtomShape[75], {"MachineID"} -> 
           TypeSystem`PackageScope`AtomShape[34], {"ProcessID"} -> 
           TypeSystem`PackageScope`AtomShape[34], {"Counter"} -> 
           TypeSystem`PackageScope`AtomShape[34]], 1], "InitialData" -> 
        TypeSystem`PackageScope`CacheHandle[1889567723], "Type" -> 
        TypeSystem`Struct[{
          "GenerationTime", "MachineID", "ProcessID", "Counter"}, {
           TypeSystem`Atom[DateObject], 
           TypeSystem`Atom[Integer], 
           TypeSystem`Atom[Integer], 
           TypeSystem`Atom[Integer]}], "HandleQ" -> True, "RowTarget" -> 20, 
        "Data" -> TypeSystem`PackageScope`CacheHandle[1889567723]], 
      TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
      TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, 
      TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
      DynamicModule[{
        TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
           Style[
            Grid[{{
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"GenerationTime\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"GenerationTime\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1584714868][{
                    Key["GenerationTime"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1584714868][
                  GeneralUtilities`Slice[
                   Key["GenerationTime"]]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes[
                  StyleBox[
                  "\"Thu 14 Dec 2017 01:49:17\"", FontColor -> RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1584714868][
                  GeneralUtilities`Slice[
                   Key["GenerationTime"]]], "Mouse"], 
                ImageSize -> {{75, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"MachineID\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"MachineID\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1584714868][{
                    Key["MachineID"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1584714868][
                  GeneralUtilities`Slice[
                   Key["MachineID"]]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["14058222"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1584714868][
                  GeneralUtilities`Slice[
                   Key["MachineID"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"ProcessID\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"ProcessID\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1584714868][{
                    Key["ProcessID"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1584714868][
                  GeneralUtilities`Slice[
                   Key["ProcessID"]]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["42527"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1584714868][
                  GeneralUtilities`Slice[
                   Key["ProcessID"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"Counter\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"Counter\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1584714868][{
                    Key["Counter"]}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1584714868][
                  GeneralUtilities`Slice[
                   Key["Counter"]]], "Mouse"], Background -> GrayLevel[0.95], 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["7083268"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1584714868][
                  GeneralUtilities`Slice[
                   Key["Counter"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> {
                 MenuItem["Copy position to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Copy data to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], Delimiter, 
                 MenuItem["Paste position in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Paste data in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", 
               FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, 
             Dividers -> All, FrameStyle -> GrayLevel[0.85], 
             BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], 
            LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False,
             ShowAutoStyles -> False]], 
         TypeSystem`NestedGrid`PackagePrivate`initialQ = True, 
         TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, 
        Dynamic[
         TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
         TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
            Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
            
            Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
              TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
              TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[
                TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, 
             TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = 
              If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === 
                TypeSystem`NestedGrid`PackagePrivate`$NotCached, 
                TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
                TypeSystem`NestedGrid`PackagePrivate`renderGrid[
                TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1584714868][
                TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
               Not[
                FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
               TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
               TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
          TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
          TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[
            FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
            TypeSystem`SparseGrid[
             TypeSystem`H["(data no longer present)"]], 
            If[GeneralUtilities`$DebugMode, 
             Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, "  ", 
               TypeSystem`NestedGrid`PackagePrivate`formatState[
               TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], 
         TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], 
        DynamicModuleValues :> {}], 
      TypeSystem`NestedGrid`PackagePrivate`$posCell$$, 
      TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
        TypeSystem`NestedGrid`PackagePrivate`alignBar[
        TypeSystem`NestedGrid`PackagePrivate`$state$$][
         TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
          TypeSystem`PackageScope`Pathbar[
          TypeSystem`NestedGrid`PackagePrivate`$path$$, 
           TypeSystem`NestedGrid`PackagePrivate`updateState[
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
            TypeSystem`NestedGrid`PackagePrivate`$path$$, 
            TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
            TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1584714868]]]], 
        TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
      TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[
        Dynamic[
         Replace[
          MouseAnnotation[Null], {
          TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1584714868][Null] -> 
           "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1584714868][
             Pattern[TypeSystem`NestedGrid`PackagePrivate`path, 
              Blank[]]] :> (
            TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
             TypeSystem`NestedGrid`PackagePrivate`path; 
            TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
             TypeSystem`NestedGrid`PackagePrivate`path, 
              TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
           Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], 
        FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> 
        Top, ImageSize -> {Automatic, 14}]}, 
     DynamicBox[
      ToBoxes[
       Column[
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, {
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, {
         TypeSystem`NestedGrid`PackagePrivate`$topBar$$, 
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> 
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 
          0, {{}, {0, 0.05, 0}}]], StandardForm], 
      ImageSizeCache -> {423., {83.53173828125, 91.46826171875}}, 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> 
     TypeSystem`NestedGrid`PackagePrivate`deleteState[
      TypeSystem`NestedGrid`PackagePrivate`$state$$], 
     DynamicModuleValues :> {}, Initialization :> 
     Block[{$ContextPath = $ContextPath}, 
       Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]},
  "CopyTag",
  DisplayFunction->(#& ),
  InterpretationFunction->("Dataset[<>]"& )]], "Output",
 CellLabel->"Out[18]=",
 CellID->801493738,ExpressionUUID->"dddffd83-0bce-4e31-88ef-d8410d8bff07"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Inserting Multiple Documents into a Collection", "Subsection",
 CellID->168646266,ExpressionUUID->"48cf8264-7065-4f4f-83c0-215065cea9cc"],

Cell[CellGroupData[{

Cell["\<\
It is more efficient to insert many documents at once into a collection. \
Create a list of documents:\
\>", "Text",
 CellID->1067517718,ExpressionUUID->"ea0c406a-b76b-49db-80e3-8117ebe301d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"catsData", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"<|", 
     RowBox[{
      RowBox[{"\"\<age\>\"", "\[Rule]", "5"}], ",", 
      RowBox[{"\"\<sex\>\"", "\[Rule]", "\"\<male\>\""}], ",", 
      RowBox[{"\"\<date\>\"", "\[Rule]", 
       RowBox[{"DateObject", "[", "]"}]}]}], "|>"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"<|", 
     RowBox[{
      RowBox[{"\"\<age\>\"", "\[Rule]", "4"}], ",", 
      RowBox[{"\"\<sex\>\"", "\[Rule]", "\"\<female\>\""}], ",", 
      RowBox[{"\"\<date\>\"", "\[Rule]", 
       RowBox[{"DateObject", "[", "]"}]}]}], "|>"}]}], "}"}]}]], "Input",
 CellLabel->"In[20]:=",
 CellID->1804895542,ExpressionUUID->"ae71ea05-67e6-4321-8898-e4b7c8de2f70"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"age\"\>", "\[Rule]", "5"}], ",", 
     RowBox[{"\<\"sex\"\>", "\[Rule]", "\<\"male\"\>"}], ",", 
     RowBox[{"\<\"date\"\>", "\[Rule]", 
      TemplateBox[{RowBox[{"\"Thu 14 Dec 2017 01:49:37\"", 
          StyleBox[
           RowBox[{"\"GMT+\"", "\[InvisibleSpace]", 
             StyleBox["2.`", NumberMarks -> False, StripOnInput -> False]}], 
           FontColor -> GrayLevel[0.5]]}],RowBox[{"DateObject", "[", 
          RowBox[{
            RowBox[{"{", 
              
              RowBox[{"2017", ",", "12", ",", "14", ",", "1", ",", "49", ",", 
                "37.648672`8.328324640793557"}], "}"}], ",", "\"Instant\"", 
            ",", "\"Gregorian\"", ",", "2.`"}], "]"}]},
       "DateObject",
       Editable->False]}]}], "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"age\"\>", "\[Rule]", "4"}], ",", 
     RowBox[{"\<\"sex\"\>", "\[Rule]", "\<\"female\"\>"}], ",", 
     RowBox[{"\<\"date\"\>", "\[Rule]", 
      TemplateBox[{RowBox[{"\"Thu 14 Dec 2017 01:49:37\"", 
          StyleBox[
           RowBox[{"\"GMT+\"", "\[InvisibleSpace]", 
             StyleBox["2.`", NumberMarks -> False, StripOnInput -> False]}], 
           FontColor -> GrayLevel[0.5]]}],RowBox[{"DateObject", "[", 
          RowBox[{
            RowBox[{"{", 
              
              RowBox[{"2017", ",", "12", ",", "14", ",", "1", ",", "49", ",", 
                "37.648689`8.328324836896211"}], "}"}], ",", "\"Instant\"", 
            ",", "\"Gregorian\"", ",", "2.`"}], "]"}]},
       "DateObject",
       Editable->False]}]}], "\[RightAssociation]"}]}], "}"}]], "Output",
 CellLabel->"Out[20]=",
 CellID->1545199584,ExpressionUUID->"f30d79e9-7e40-47ad-91a1-4ed2ec289d70"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Insert these two documents into the collection:", "Text",
 CellID->776035871,ExpressionUUID->"a18b00a3-1964-4e63-a6ee-f4f79fe069ed"],

Cell[CellGroupData[{

Cell["MongoCollectionInsert[coll,catsData]", "Input",
 CellLabel->"In[21]:=",
 CellID->1514949325,ExpressionUUID->"591ffddb-ab84-4053-aaa9-4439cc1f7beb"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MongoInsertResult",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"InsertedCount: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Acknowledged: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["True", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"InsertedCount: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["2", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Acknowledged: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["True", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`MongoInsertResult[
   Association["Acknowledged" -> True, "InsertedIDs" -> {
      MongoLink`BSONObjectID["5a31bc93d682eea61f6c1505"], 
      MongoLink`BSONObjectID["5a31bc93d682eea61f6c1506"]}, "InsertedCount" -> 
    2]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[21]=",
 CellID->1125176869,ExpressionUUID->"c0ffc898-e3ce-4a4d-8324-761581249514"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Getting a Single Document", "Subsection",
 CellID->2083645014,ExpressionUUID->"a43d7783-68c9-4cf4-9bc4-8cb7a84eafef"],

Cell[CellGroupData[{

Cell[TextData[{
 "The simplest query is performed with ",
 Cell[BoxData[
  ButtonBox["MongoCollectionFindOne",
   BaseStyle->"Link",
   ButtonData->"paclet:MongoLink/ref/MongoCollectionFindOne"]], 
  "InlineFormula",ExpressionUUID->"6106e2af-8842-4908-b588-50147ba8c9f5"],
 ", which returns a single document from the collection:"
}], "Text",
 CellChangeTimes->{3.72500736084055*^9},
 CellID->323277622,ExpressionUUID->"1fce7595-2e1d-4ad8-a858-226fb09aef39"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MongoCollectionFindOne", "[", "coll", "]"}]], "Input",
 CellLabel->"In[22]:=",
 CellID->500010179,ExpressionUUID->"3db80437-330a-4097-9aba-417f010962c6"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"_id\"\>", "\[Rule]", 
    InterpretationBox[
     RowBox[{
      TagBox["BSONObjectID",
       "SummaryHead"], "[", 
      DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
       "Ready"}, 
       TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
               GridBox[{{
                  RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc7dd682eea61f6c1504\"", "SummaryItem"]}]}},
                 GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               GridBox[{{
                  RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc7dd682eea61f6c1504\"", "SummaryItem"]}]}},
                 GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`open$$], ImageSize -> Automatic]},
        "SummaryPanel"],
       DynamicModuleValues:>{}], "]"}],
     MongoLink`BSONObjectID["5a31bc7dd682eea61f6c1504"],
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}], ",", 
   RowBox[{"\<\"age\"\>", "\[Rule]", "3"}], ",", 
   RowBox[{"\<\"sex\"\>", "\[Rule]", "\<\"female\"\>"}], ",", 
   RowBox[{"\<\"date\"\>", "\[Rule]", 
    TemplateBox[{RowBox[{"\"Thursday 14 December 2017 01:49:16:177\"", 
        StyleBox[
         RowBox[{"\"GMT+\"", "\[InvisibleSpace]", 
           StyleBox["2.`", NumberMarks -> False, StripOnInput -> False]}], 
         FontColor -> GrayLevel[0.5]]}],RowBox[{"DateObject", "[", 
        RowBox[{
          RowBox[{"{", 
            
            RowBox[{"2017", ",", "12", ",", "14", ",", "1", ",", "49", ",", 
              "16.17799997329712`"}], "}"}], ",", "\"Instant\"", ",", 
          "\"Gregorian\"", ",", "2.`", ",", 
          RowBox[{"{", 
            RowBox[{"\"DateTime\"", ",", "\":\"", ",", "\"Millisecond\""}], 
            "}"}]}], "]"}]},
     "DateObject",
     Editable->False]}]}], "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[22]=",
 CellID->1346780827,ExpressionUUID->"75189282-372a-4ac1-b60a-f1eef4251d17"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
We can specify that we want to find a document of a three year old cat:\
\>", "Text",
 CellID->1321954482,ExpressionUUID->"6ea2a00a-69ae-4893-a992-1f0b51a5a9e1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MongoCollectionFindOne", "[", 
  RowBox[{"coll", ",", 
   RowBox[{"<|", 
    RowBox[{"\"\<age\>\"", "->", "5"}], "|>"}]}], "]"}]], "Input",
 CellLabel->"In[23]:=",
 CellID->669345516,ExpressionUUID->"3b550556-35ec-4323-adde-5bb5bbf10a62"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"_id\"\>", "\[Rule]", 
    InterpretationBox[
     RowBox[{
      TagBox["BSONObjectID",
       "SummaryHead"], "[", 
      DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
       "Ready"}, 
       TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
               GridBox[{{
                  RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1505\"", "SummaryItem"]}]}},
                 GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               GridBox[{{
                  RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1505\"", "SummaryItem"]}]}},
                 GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`open$$], ImageSize -> Automatic]},
        "SummaryPanel"],
       DynamicModuleValues:>{}], "]"}],
     MongoLink`BSONObjectID["5a31bc93d682eea61f6c1505"],
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}], ",", 
   RowBox[{"\<\"age\"\>", "\[Rule]", "5"}], ",", 
   RowBox[{"\<\"sex\"\>", "\[Rule]", "\<\"male\"\>"}], ",", 
   RowBox[{"\<\"date\"\>", "\[Rule]", 
    TemplateBox[{RowBox[{"\"Thursday 14 December 2017 01:49:37:649\"", 
        StyleBox[
         RowBox[{"\"GMT+\"", "\[InvisibleSpace]", 
           StyleBox["2.`", NumberMarks -> False, StripOnInput -> False]}], 
         FontColor -> GrayLevel[0.5]]}],RowBox[{"DateObject", "[", 
        RowBox[{
          RowBox[{"{", 
            
            RowBox[{"2017", ",", "12", ",", "14", ",", "1", ",", "49", ",", 
              "37.64900016784668`"}], "}"}], ",", "\"Instant\"", ",", 
          "\"Gregorian\"", ",", "2.`", ",", 
          RowBox[{"{", 
            RowBox[{"\"DateTime\"", ",", "\":\"", ",", "\"Millisecond\""}], 
            "}"}]}], "]"}]},
     "DateObject",
     Editable->False]}]}], "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[23]=",
 CellID->1527780651,ExpressionUUID->"340a7eb8-8430-4085-9a63-c496a6a97949"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Various keys that are not wanted can be eliminated using ",
 ButtonBox["projection",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://docs.mongodb.com/manual/reference/method/db.collection.find/#\
find-projection"], None},
  ButtonNote->
   "https://docs.mongodb.com/manual/reference/method/db.collection.find/#find-\
projection"],
 ". Eliminating the \"date\" and \"sex\" fields:"
}], "Text",
 CellID->269716424,ExpressionUUID->"02ca0d08-6cd9-4c5b-b8ed-35490192f1d0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MongoCollectionFindOne", "[", 
  RowBox[{"coll", ",", 
   RowBox[{"<|", 
    RowBox[{"\"\<age\>\"", "->", "5"}], "|>"}], ",", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{"\"\<date\>\"", "\[Rule]", "False"}], ",", 
     RowBox[{"\"\<sex\>\"", "\[Rule]", "False"}]}], "|>"}]}], "]"}]], "Input",\

 CellLabel->"In[24]:=",
 CellID->691361436,ExpressionUUID->"292fec7b-b0b4-40c1-ba47-f3429bad5a6b"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"_id\"\>", "\[Rule]", 
    InterpretationBox[
     RowBox[{
      TagBox["BSONObjectID",
       "SummaryHead"], "[", 
      DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
       "Ready"}, 
       TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
               GridBox[{{
                  RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1505\"", "SummaryItem"]}]}},
                 GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               GridBox[{{
                  RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1505\"", "SummaryItem"]}]}},
                 GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`open$$], ImageSize -> Automatic]},
        "SummaryPanel"],
       DynamicModuleValues:>{}], "]"}],
     MongoLink`BSONObjectID["5a31bc93d682eea61f6c1505"],
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}], ",", 
   RowBox[{"\<\"age\"\>", "\[Rule]", "5"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[24]=",
 CellID->90607946,ExpressionUUID->"a81f969a-f7f3-4620-8aee-8fa1811f7754"]
}, Open  ]]
}, Open  ]],

Cell["\<\
This can be used to speed up the transfer of documents from the server, as \
unwanted parts of a document need not be transferred.\
\>", "Text",
 CellID->395979520,ExpressionUUID->"ea42d3e1-0ff4-4cd5-afbc-71d67b78ba82"],

Cell[TextData[{
 StyleBox["Note",
  FontWeight->"Bold"],
 ": for more information on building queries, the tutorial ",
 ButtonBox["\"Query Documents\"",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://docs.mongodb.com/manual/tutorial/query-documents/"], None},
  ButtonNote->"https://docs.mongodb.com/manual/tutorial/query-documents/"],
 " from the MongoDB documentation might be useful."
}], "Text",
 CellID->1597390517,ExpressionUUID->"bd6c9e96-66f2-4c78-8bc9-0177f6ad85f1"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Getting Multiple Documents", "Subsection",
 CellID->1881780685,ExpressionUUID->"37f41b1b-9035-4941-9992-521d2865ee61"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["MongoCollectionFind",
   BaseStyle->"Link",
   ButtonData->"paclet:MongoLink/ref/MongoCollectionFind"]], "InlineFormula",
  ExpressionUUID->"a95aebd0-782b-480b-becf-20b63e85438b"],
 " has the same syntax as ",
 Cell[BoxData[
  ButtonBox["MongoCollectionFindOne",
   BaseStyle->"Link",
   ButtonData->"paclet:MongoLink/ref/MongoCollectionFindOne"]], 
  "InlineFormula",ExpressionUUID->"006667f7-0078-4b68-b30c-df87d228e76c"],
 ", but instead of returning a document, it returns a ",
 Cell[BoxData[
  ButtonBox["MongoCursor",
   BaseStyle->"Link",
   ButtonData->"paclet:MongoLink/ref/MongoCursor"]], "InlineFormula",
  ExpressionUUID->"0a6b41f6-1f12-413c-93bd-264a6dd5d9bb"],
 ", appropriate for handling large datasets:"
}], "Text",
 CellChangeTimes->{{3.7250073911496353`*^9, 3.725007399640764*^9}},
 CellID->1299133495,ExpressionUUID->"aa1e6a84-459c-4f53-8c7d-64f24e1d242b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"curs", "=", 
  RowBox[{"MongoCollectionFind", "[", "coll", "]"}]}]], "Input",
 CellLabel->"In[25]:=",
 CellID->1070411416,ExpressionUUID->"e9427189-70f0-4bd8-a633-206b2dc09ce7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MongoCursor",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["4", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["4", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`MongoCursor[
   MongoLink`PackageScope`cursorMLE[4], 
   MongoLink`MongoClient[
    MongoLink`PackageScope`clientMLE[3]]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[25]=",
 CellID->495553696,ExpressionUUID->"4720d3ea-16ce-4fd7-9fa1-9519d4601e0f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Calling ",
 Cell[BoxData[
  ButtonBox["Read",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Read"]], "InlineFormula",ExpressionUUID->
  "79a36195-aa0c-437a-b3ba-223f46e970fe"],
 " (or equivalently ",
 Cell[BoxData[
  ButtonBox["MongoCursorNext",
   BaseStyle->"Link",
   ButtonData->"paclet:MongoLink/ref/MongoCursorNext"]], "InlineFormula",
  ExpressionUUID->"caf38789-e1ee-4c61-843e-6ada5f4e76e4"],
 ") on a ",
 Cell[BoxData[
  ButtonBox["MongoCursor",
   BaseStyle->"Link",
   ButtonData->"paclet:MongoLink/ref/MongoCursor"]], "InlineFormula",
  ExpressionUUID->"9b7deebe-ddaf-43b6-970f-af03e0ed71d4"],
 " gets the next document:"
}], "Text",
 CellChangeTimes->{{3.725007409695674*^9, 3.7250074138429937`*^9}},
 CellID->1577475391,ExpressionUUID->"d932a628-e669-41d9-9b1a-8ab7524e8056"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Read", "[", "curs", "]"}]], "Input",
 CellLabel->"In[26]:=",
 CellID->1390427678,ExpressionUUID->"eea20726-d54e-4c6d-ba5a-338693ac5b5b"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"_id\"\>", "\[Rule]", 
    InterpretationBox[
     RowBox[{
      TagBox["BSONObjectID",
       "SummaryHead"], "[", 
      DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
       "Ready"}, 
       TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
               GridBox[{{
                  RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc7dd682eea61f6c1504\"", "SummaryItem"]}]}},
                 GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}], True -> GridBox[{{
               GridBox[{{
                  RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc7dd682eea61f6c1504\"", "SummaryItem"]}]}},
                 GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
                False, GridBoxItemSize -> {
                 "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                GridBoxSpacings -> {
                 "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                BaseStyle -> {
                 ShowStringCharacters -> False, NumberMarks -> False, 
                  PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
             GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             BaselinePosition -> {1, 1}]}, 
          Dynamic[Typeset`open$$], ImageSize -> Automatic]},
        "SummaryPanel"],
       DynamicModuleValues:>{}], "]"}],
     MongoLink`BSONObjectID["5a31bc7dd682eea61f6c1504"],
     Editable->False,
     SelectWithContents->True,
     Selectable->False]}], ",", 
   RowBox[{"\<\"age\"\>", "\[Rule]", "3"}], ",", 
   RowBox[{"\<\"sex\"\>", "\[Rule]", "\<\"female\"\>"}], ",", 
   RowBox[{"\<\"date\"\>", "\[Rule]", 
    TemplateBox[{RowBox[{"\"Thursday 14 December 2017 01:49:16:177\"", 
        StyleBox[
         RowBox[{"\"GMT+\"", "\[InvisibleSpace]", 
           StyleBox["2.`", NumberMarks -> False, StripOnInput -> False]}], 
         FontColor -> GrayLevel[0.5]]}],RowBox[{"DateObject", "[", 
        RowBox[{
          RowBox[{"{", 
            
            RowBox[{"2017", ",", "12", ",", "14", ",", "1", ",", "49", ",", 
              "16.17799997329712`"}], "}"}], ",", "\"Instant\"", ",", 
          "\"Gregorian\"", ",", "2.`", ",", 
          RowBox[{"{", 
            RowBox[{"\"DateTime\"", ",", "\":\"", ",", "\"Millisecond\""}], 
            "}"}]}], "]"}]},
     "DateObject",
     Editable->False]}]}], "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[26]=",
 CellID->281362338,ExpressionUUID->"24134e6e-4718-4151-a39f-65a66825462f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Calling ",
 Cell[BoxData[
  ButtonBox["ReadList",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/ReadList"]], "InlineFormula",ExpressionUUID->
  "1681b51f-316c-4a94-8635-c3b60f73f1b1"],
 " (or equivalently ",
 Cell[BoxData[
  ButtonBox["MongoCursorToArray",
   BaseStyle->"Link",
   ButtonData->"paclet:MongoLink/ref/MongoCursorToArray"]], "InlineFormula",
  ExpressionUUID->"2fc97d33-f355-4fb9-bf75-369f725bc2c7"],
 ") gets a list of all remaining documents:"
}], "Text",
 CellChangeTimes->{3.725007423648028*^9},
 CellID->724185105,ExpressionUUID->"e91283a9-fd76-4671-8f01-7f00636a0e56"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"docs", "=", 
  RowBox[{"ReadList", "[", "curs", "]"}]}]], "Input",
 CellLabel->"In[27]:=",
 CellID->2095618494,ExpressionUUID->"45c2506e-faa9-485a-ad1f-08f07a152036"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"_id\"\>", "\[Rule]", 
      InterpretationBox[
       RowBox[{
        TagBox["BSONObjectID",
         "SummaryHead"], "[", 
        DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
         "Ready"}, 
         TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
                 GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1505\"", "SummaryItem"]}]}},
                   GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                  BaseStyle -> {
                   ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
               GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               BaselinePosition -> {1, 1}], True -> GridBox[{{
                 GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1505\"", "SummaryItem"]}]}},
                   GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                  BaseStyle -> {
                   ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
               GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               BaselinePosition -> {1, 1}]}, 
            Dynamic[Typeset`open$$], ImageSize -> Automatic]},
          "SummaryPanel"],
         DynamicModuleValues:>{}], "]"}],
       MongoLink`BSONObjectID["5a31bc93d682eea61f6c1505"],
       Editable->False,
       SelectWithContents->True,
       Selectable->False]}], ",", 
     RowBox[{"\<\"age\"\>", "\[Rule]", "5"}], ",", 
     RowBox[{"\<\"sex\"\>", "\[Rule]", "\<\"male\"\>"}], ",", 
     RowBox[{"\<\"date\"\>", "\[Rule]", 
      TemplateBox[{RowBox[{"\"Thursday 14 December 2017 01:49:37:649\"", 
          StyleBox[
           RowBox[{"\"GMT+\"", "\[InvisibleSpace]", 
             StyleBox["2.`", NumberMarks -> False, StripOnInput -> False]}], 
           FontColor -> GrayLevel[0.5]]}],RowBox[{"DateObject", "[", 
          RowBox[{
            RowBox[{"{", 
              
              RowBox[{"2017", ",", "12", ",", "14", ",", "1", ",", "49", ",", 
                "37.64900016784668`"}], "}"}], ",", "\"Instant\"", ",", 
            "\"Gregorian\"", ",", "2.`", ",", 
            RowBox[{"{", 
              RowBox[{"\"DateTime\"", ",", "\":\"", ",", "\"Millisecond\""}], 
              "}"}]}], "]"}]},
       "DateObject",
       Editable->False]}]}], "\[RightAssociation]"}], ",", 
   RowBox[{"\[LeftAssociation]", 
    RowBox[{
     RowBox[{"\<\"_id\"\>", "\[Rule]", 
      InterpretationBox[
       RowBox[{
        TagBox["BSONObjectID",
         "SummaryHead"], "[", 
        DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = 
         "Ready"}, 
         TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
                 GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1506\"", "SummaryItem"]}]}},
                   GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                  BaseStyle -> {
                   ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
               GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               BaselinePosition -> {1, 1}], True -> GridBox[{{
                 GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1506\"", "SummaryItem"]}]}},
                   GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                  AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                  BaseStyle -> {
                   ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
               GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
               BaselinePosition -> {1, 1}]}, 
            Dynamic[Typeset`open$$], ImageSize -> Automatic]},
          "SummaryPanel"],
         DynamicModuleValues:>{}], "]"}],
       MongoLink`BSONObjectID["5a31bc93d682eea61f6c1506"],
       Editable->False,
       SelectWithContents->True,
       Selectable->False]}], ",", 
     RowBox[{"\<\"age\"\>", "\[Rule]", "4"}], ",", 
     RowBox[{"\<\"sex\"\>", "\[Rule]", "\<\"female\"\>"}], ",", 
     RowBox[{"\<\"date\"\>", "\[Rule]", 
      TemplateBox[{RowBox[{"\"Thursday 14 December 2017 01:49:37:649\"", 
          StyleBox[
           RowBox[{"\"GMT+\"", "\[InvisibleSpace]", 
             StyleBox["2.`", NumberMarks -> False, StripOnInput -> False]}], 
           FontColor -> GrayLevel[0.5]]}],RowBox[{"DateObject", "[", 
          RowBox[{
            RowBox[{"{", 
              
              RowBox[{"2017", ",", "12", ",", "14", ",", "1", ",", "49", ",", 
                "37.64900016784668`"}], "}"}], ",", "\"Instant\"", ",", 
            "\"Gregorian\"", ",", "2.`", ",", 
            RowBox[{"{", 
              RowBox[{"\"DateTime\"", ",", "\":\"", ",", "\"Millisecond\""}], 
              "}"}]}], "]"}]},
       "DateObject",
       Editable->False]}]}], "\[RightAssociation]"}]}], "}"}]], "Output",
 CellLabel->"Out[27]=",
 CellID->124635314,ExpressionUUID->"60e1290a-7170-4061-8331-ebc3404963ea"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Once all documents have been read from the cursor, ",
 Cell[BoxData[
  ButtonBox["Null",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Null"]], "InlineFormula",ExpressionUUID->
  "4125e3d6-e29b-4ffe-8510-9b1ee0eeb50c"],
 " is returned if ",
 Cell[BoxData[
  ButtonBox["Read",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Read"]], "InlineFormula",ExpressionUUID->
  "73602f97-89ba-4f0e-ac35-8ba3aa33dca3"],
 " is called again:"
}], "Text",
 CellID->399827539,ExpressionUUID->"ab6d0dea-e4ab-4592-b871-c3cf468552ea"],

Cell[BoxData[
 RowBox[{"Read", "[", "curs", "]"}]], "Input",
 CellLabel->"In[28]:=",
 CellID->925149521,ExpressionUUID->"131f3a7d-7645-4657-bda2-b461ceb39479"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
To read the documents again, a new cursor needs to be created:\
\>", "Text",
 CellID->2095902991,ExpressionUUID->"7cedd925-bde2-492f-b989-e2983e49306c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"curs", "=", 
  RowBox[{"MongoCollectionFind", "[", "coll", "]"}]}]], "Input",
 CellLabel->"In[29]:=",
 CellID->1763103434,ExpressionUUID->"e1e3fd45-41d0-4c53-81d7-93d9cf15a606"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MongoCursor",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["5", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["5", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`MongoCursor[
   MongoLink`PackageScope`cursorMLE[5], 
   MongoLink`MongoClient[
    MongoLink`PackageScope`clientMLE[3]]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[29]=",
 CellID->1983798703,ExpressionUUID->"559efce3-5240-4416-b5e8-20deda43b694"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "All documents in a cursor can also be read into a ",
 Cell[BoxData[
  ButtonBox["Dataset",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Dataset"]], "InlineFormula",ExpressionUUID->
  "3a6c5211-cd1f-4c2c-8d01-63be974975d8"],
 ":"
}], "Text",
 CellID->1200676525,ExpressionUUID->"ae4927f4-777f-4607-a1d2-35c7382b07d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dataset", "[", "curs", "]"}]], "Input",
 CellLabel->"In[30]:=",
 CellID->1402054679,ExpressionUUID->"0b699488-ec67-443f-ad35-a3cd42778a03"],

Cell[BoxData[
 TemplateBox[{TagBox[
    DynamicModuleBox[{
     TypeSystem`NestedGrid`PackagePrivate`$state$$ = 
      Data`UnorderedAssociation[
       "RowCount" -> 3, "Length" -> 3, "InitialType" -> TypeSystem`Vector[
          
          TypeSystem`Struct[{"_id", "age", "sex", "date"}, {
           TypeSystem`AnyType, 
            TypeSystem`Atom[Integer], 
            TypeSystem`Atom[String], 
            TypeSystem`Atom[DateObject]}], 3], "Shape" -> 
        TypeSystem`PackageScope`HeaderShape[
          
          Association[{All, "_id"} -> 1, {All, "age"} -> 1, {All, "sex"} -> 
           1, {All, "date"} -> 1], 
          TypeSystem`PackageScope`Limited[
           TypeSystem`PackageScope`ColumnShape[
            TypeSystem`PackageScope`RowShape[
             Association[
             "_id" -> TypeSystem`PackageScope`UnknownShape, "age" -> 
              TypeSystem`PackageScope`AtomShape[34], "sex" -> 
              TypeSystem`PackageScope`AtomShape[57.60000000000001], "date" -> 
              TypeSystem`PackageScope`AtomShape[75]]]], 3, {}]], 
        "InitialData" -> TypeSystem`PackageScope`CacheHandle[602673990], 
        "Type" -> TypeSystem`Vector[
          
          TypeSystem`Struct[{"_id", "age", "sex", "date"}, {
           TypeSystem`AnyType, 
            TypeSystem`Atom[Integer], 
            TypeSystem`Atom[String], 
            TypeSystem`Atom[DateObject]}], 3], "HandleQ" -> True, "RowTarget" -> 
        20, "Data" -> TypeSystem`PackageScope`CacheHandle[602673990]], 
      TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
      TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, 
      TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
      DynamicModule[{
        TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
           Style[
            Grid[{{
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"_id\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"_id\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 750367555][{
                    All, "_id"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[All, "_id"]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"age\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"age\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 750367555][{
                    All, "age"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[All, "age"]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"sex\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"sex\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 750367555][{
                    All, "sex"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[All, "sex"]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"date\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"date\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 750367555][{
                    All, "date"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[All, "date"]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation[
                 RawBoxes[
                  StyleBox[
                   InterpretationBox[
                    RowBox[{
                    TagBox["BSONObjectID", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc7dd682eea61f6c1504\"", "SummaryItem"]}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc7dd682eea61f6c1504\"", "SummaryItem"]}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    MongoLink`BSONObjectID["5a31bc7dd682eea61f6c1504"], 
                    Selectable -> False, Editable -> False, 
                    SelectWithContents -> True], FontFamily -> 
                   "Source Code Pro", FontSize -> 13, ShowStringCharacters -> 
                   True]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[1, 
                   Key["_id"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["3"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[1, 
                   Key["age"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["female", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[1, 
                   Key["sex"]]], "Mouse"], 
                ImageSize -> {{57.60000000000001, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes[
                  StyleBox[
                  "\"Thursday 14 December 2017 01:49:16:177\"", FontColor -> 
                   RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[1, 
                   Key["date"]]], "Mouse"], 
                ImageSize -> {{75, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation[
                 RawBoxes[
                  StyleBox[
                   InterpretationBox[
                    RowBox[{
                    TagBox["BSONObjectID", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1505\"", "SummaryItem"]}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1505\"", "SummaryItem"]}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    MongoLink`BSONObjectID["5a31bc93d682eea61f6c1505"], 
                    Selectable -> False, Editable -> False, 
                    SelectWithContents -> True], FontFamily -> 
                   "Source Code Pro", FontSize -> 13, ShowStringCharacters -> 
                   True]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[2, 
                   Key["_id"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["5"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[2, 
                   Key["age"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["male", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[2, 
                   Key["sex"]]], "Mouse"], 
                ImageSize -> {{57.60000000000001, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes[
                  StyleBox[
                  "\"Thursday 14 December 2017 01:49:37:649\"", FontColor -> 
                   RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[2, 
                   Key["date"]]], "Mouse"], 
                ImageSize -> {{75, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation[
                 RawBoxes[
                  StyleBox[
                   InterpretationBox[
                    RowBox[{
                    TagBox["BSONObjectID", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1506\"", "SummaryItem"]}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1506\"", "SummaryItem"]}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    MongoLink`BSONObjectID["5a31bc93d682eea61f6c1506"], 
                    Selectable -> False, Editable -> False, 
                    SelectWithContents -> True], FontFamily -> 
                   "Source Code Pro", FontSize -> 13, ShowStringCharacters -> 
                   True]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[3, 
                   Key["_id"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["4"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[3, 
                   Key["age"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["female", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[3, 
                   Key["sex"]]], "Mouse"], 
                ImageSize -> {{57.60000000000001, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes[
                  StyleBox[
                  "\"Thursday 14 December 2017 01:49:37:649\"", FontColor -> 
                   RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
                 
                  GeneralUtilities`Slice[3, 
                   Key["date"]]], "Mouse"], 
                ImageSize -> {{75, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> {
                 MenuItem["Copy position to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Copy data to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], Delimiter, 
                 MenuItem["Paste position in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Paste data in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", 
               FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, 
             Dividers -> All, FrameStyle -> GrayLevel[0.85], 
             BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], 
            LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False,
             ShowAutoStyles -> False]], 
         TypeSystem`NestedGrid`PackagePrivate`initialQ = True, 
         TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, 
        Dynamic[
         TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
         TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
            Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
            
            Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
              TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
              TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[
                TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, 
             TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = 
              If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === 
                TypeSystem`NestedGrid`PackagePrivate`$NotCached, 
                TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
                TypeSystem`NestedGrid`PackagePrivate`renderGrid[
                TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$grid$$, 750367555][
                TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
               Not[
                FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
               TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
               TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
          TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
          TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[
            FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
            TypeSystem`SparseGrid[
             TypeSystem`H["(data no longer present)"]], 
            If[GeneralUtilities`$DebugMode, 
             Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, "  ", 
               TypeSystem`NestedGrid`PackagePrivate`formatState[
               TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], 
         TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], 
        DynamicModuleValues :> {}], 
      TypeSystem`NestedGrid`PackagePrivate`$posCell$$, 
      TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
        TypeSystem`NestedGrid`PackagePrivate`alignBar[
        TypeSystem`NestedGrid`PackagePrivate`$state$$][
         TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
          TypeSystem`PackageScope`Pathbar[
          TypeSystem`NestedGrid`PackagePrivate`$path$$, 
           TypeSystem`NestedGrid`PackagePrivate`updateState[
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
            TypeSystem`NestedGrid`PackagePrivate`$path$$, 
            TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
            TypeSystem`NestedGrid`PackagePrivate`$grid$$, 750367555]]]], 
        TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
      TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[
        Dynamic[
         Replace[
          MouseAnnotation[Null], {
          TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][Null] -> 
           "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[750367555][
             Pattern[TypeSystem`NestedGrid`PackagePrivate`path, 
              Blank[]]] :> (
            TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
             TypeSystem`NestedGrid`PackagePrivate`path; 
            TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
             TypeSystem`NestedGrid`PackagePrivate`path, 
              TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
           Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], 
        FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> 
        Top, ImageSize -> {Automatic, 14}]}, 
     DynamicBox[
      ToBoxes[
       Column[
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, {
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, {
         TypeSystem`NestedGrid`PackagePrivate`$topBar$$, 
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> 
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 
          0, {{}, {0, 0.05, 0}}]], StandardForm], 
      ImageSizeCache -> {988., {112.03173828125, 119.96826171875}}, 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> 
     TypeSystem`NestedGrid`PackagePrivate`deleteState[
      TypeSystem`NestedGrid`PackagePrivate`$state$$], 
     DynamicModuleValues :> {}, Initialization :> 
     Block[{$ContextPath = $ContextPath}, 
       Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]},
  "CopyTag",
  DisplayFunction->(#& ),
  InterpretationFunction->("Dataset[<>]"& )]], "Output",
 CellLabel->"Out[30]=",
 CellID->322990193,ExpressionUUID->"724d4728-3fa3-4768-a0a4-f467895abf9f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
The real power of cursors is that every document in a collection can be \
processed without having to load all documents into memory:\
\>", "Text",
 CellID->673496098,ExpressionUUID->"95a130c7-df76-4765-a973-29244e7ac3ec"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"curs", "=", 
   RowBox[{"MongoCollectionFind", "[", "coll", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"While", "[", 
   RowBox[{
    RowBox[{"AssociationQ", "[", 
     RowBox[{"data", "=", 
      RowBox[{"Read", "[", "curs", "]"}]}], "]"}], ",", 
    RowBox[{"Print", "@", 
     RowBox[{"data", "[", "\"\<_id\>\"", "]"}]}]}], "]"}], ";"}]}], "Input",
 CellLabel->"In[31]:=",
 CellID->1909527337,ExpressionUUID->"24dd9763-341f-40d6-be3c-ea334ead8ff1"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["BSONObjectID",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"5a31bc7dd682eea61f6c1504\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"5a31bc7dd682eea61f6c1504\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`BSONObjectID["5a31bc7dd682eea61f6c1504"],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Print",
 CellLabel->"During evaluation of In[31]:=",
 CellID->1820209213,ExpressionUUID->"ad27f0a5-7016-455a-a529-09d7431f30e0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["BSONObjectID",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"5a31bc93d682eea61f6c1505\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"5a31bc93d682eea61f6c1505\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`BSONObjectID["5a31bc93d682eea61f6c1505"],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Print",
 CellLabel->"During evaluation of In[31]:=",
 CellID->1351691376,ExpressionUUID->"a3d26aff-e961-4184-8371-8b933c31efaf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["BSONObjectID",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"5a31bc93d682eea61f6c1506\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"5a31bc93d682eea61f6c1506\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`BSONObjectID["5a31bc93d682eea61f6c1506"],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Print",
 CellLabel->"During evaluation of In[31]:=",
 CellID->1794938466,ExpressionUUID->"dd9aff61-be7b-42f7-907b-36793306613d"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell["This allows for the handling of massive datasets.", "Text",
 CellID->1586063811,ExpressionUUID->"d9dbae1e-b591-48f1-97ef-060c200559d8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sampling From a Collection", "Subsection",
 CellID->474330942,ExpressionUUID->"09ca7de6-7a38-4730-8d44-73b08dee6e0e"],

Cell[CellGroupData[{

Cell["Collections can be sampled from:", "Text",
 CellID->2121174909,ExpressionUUID->"d64d72a5-6867-49fd-b089-1e83e266f2f1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"sample", "=", 
  RowBox[{"RandomSample", "[", 
   RowBox[{"coll", ",", "2"}], "]"}]}]], "Input",
 CellLabel->"In[33]:=",
 CellID->1765907730,ExpressionUUID->"71f1a39c-1c7c-4bb9-bc55-c0ba21c9de9e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["MongoCursor",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["7", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            GridBox[{{
               RowBox[{
                 TagBox["\"ID: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["7", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel"],
    DynamicModuleValues:>{}], "]"}],
  MongoLink`MongoCursor[
   MongoLink`PackageScope`cursorMLE[7], 
   MongoLink`MongoClient[
    MongoLink`PackageScope`clientMLE[3]]],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellLabel->"Out[33]=",
 CellID->1980385139,ExpressionUUID->"67985f50-38e4-44e9-a95d-32f46cd20d09"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Read the cursor into a ",
 Cell[BoxData[
  ButtonBox["Dataset",
   BaseStyle->"Link",
   ButtonData->"paclet:ref/Dataset"]], "InlineFormula",ExpressionUUID->
  "cd1cde84-ad21-4d32-9fc5-566fc464e01a"],
 ":"
}], "Text",
 CellID->745556059,ExpressionUUID->"36b73bd5-88f0-4e17-8550-f82ca342aca8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dataset", "[", "sample", "]"}]], "Input",
 CellLabel->"In[34]:=",
 CellID->1369848861,ExpressionUUID->"036f19d9-5aae-4e91-a648-5425b3d1a210"],

Cell[BoxData[
 TemplateBox[{TagBox[
    DynamicModuleBox[{
     TypeSystem`NestedGrid`PackagePrivate`$state$$ = 
      Data`UnorderedAssociation[
       "RowCount" -> 2, "Length" -> 2, "InitialType" -> TypeSystem`Vector[
          
          TypeSystem`Struct[{"_id", "age", "sex", "date"}, {
           TypeSystem`AnyType, 
            TypeSystem`Atom[Integer], 
            TypeSystem`Atom[String], 
            TypeSystem`Atom[DateObject]}], 2], "Shape" -> 
        TypeSystem`PackageScope`HeaderShape[
          
          Association[{All, "_id"} -> 1, {All, "age"} -> 1, {All, "sex"} -> 
           1, {All, "date"} -> 1], 
          TypeSystem`PackageScope`Limited[
           TypeSystem`PackageScope`ColumnShape[
            TypeSystem`PackageScope`RowShape[
             Association[
             "_id" -> TypeSystem`PackageScope`UnknownShape, "age" -> 
              TypeSystem`PackageScope`AtomShape[34], "sex" -> 
              TypeSystem`PackageScope`AtomShape[57.60000000000001], "date" -> 
              TypeSystem`PackageScope`AtomShape[75]]]], 2, {}]], 
        "InitialData" -> TypeSystem`PackageScope`CacheHandle[644342455], 
        "Type" -> TypeSystem`Vector[
          
          TypeSystem`Struct[{"_id", "age", "sex", "date"}, {
           TypeSystem`AnyType, 
            TypeSystem`Atom[Integer], 
            TypeSystem`Atom[String], 
            TypeSystem`Atom[DateObject]}], 2], "HandleQ" -> True, "RowTarget" -> 
        20, "Data" -> TypeSystem`PackageScope`CacheHandle[644342455]], 
      TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, 
      TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, 
      TypeSystem`NestedGrid`PackagePrivate`$grid$$ = 
      DynamicModule[{
        TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[
           Style[
            Grid[{{
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"_id\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"_id\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 898233037][{
                    All, "_id"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
                 
                  GeneralUtilities`Slice[All, "_id"]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"age\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"age\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 898233037][{
                    All, "age"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
                 
                  GeneralUtilities`Slice[All, "age"]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"sex\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"sex\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 898233037][{
                    All, "sex"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
                 
                  GeneralUtilities`Slice[All, "sex"]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}], 
               Item[
                Annotation[
                 EventHandler[
                  MouseAppearance[
                   Mouseover[
                    Pane[
                    RawBoxes[
                    StyleBox["\"date\"", FontColor -> GrayLevel[0.4]]], {{
                    20, Full}, 15}], 
                    Style[
                    Pane[
                    RawBoxes[
                    StyleBox[
                    "\"date\"", FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], {{20, Full}, 15}], FontColor -> 
                    RGBColor[
                    0.27450980392156865`, 0.5372549019607843, 
                    0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> 
                  TypeSystem`NestedGrid`PackagePrivate`updateState[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                    TypeSystem`NestedGrid`PackagePrivate`$grid$$, 898233037][{
                    All, "date"}]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
                 
                  GeneralUtilities`Slice[All, "date"]], "Mouse"], Background -> 
                GrayLevel[0.95], Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation[
                 RawBoxes[
                  StyleBox[
                   InterpretationBox[
                    RowBox[{
                    TagBox["BSONObjectID", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc7dd682eea61f6c1504\"", "SummaryItem"]}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc7dd682eea61f6c1504\"", "SummaryItem"]}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    MongoLink`BSONObjectID["5a31bc7dd682eea61f6c1504"], 
                    Selectable -> False, Editable -> False, 
                    SelectWithContents -> True], FontFamily -> 
                   "Source Code Pro", FontSize -> 13, ShowStringCharacters -> 
                   True]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
                 
                  GeneralUtilities`Slice[1, 
                   Key["_id"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["3"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
                 
                  GeneralUtilities`Slice[1, 
                   Key["age"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["female", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
                 
                  GeneralUtilities`Slice[1, 
                   Key["sex"]]], "Mouse"], 
                ImageSize -> {{57.60000000000001, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes[
                  StyleBox[
                  "\"Thursday 14 December 2017 01:49:16:177\"", FontColor -> 
                   RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
                 
                  GeneralUtilities`Slice[1, 
                   Key["date"]]], "Mouse"], 
                ImageSize -> {{75, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}, {
               Pane[
                Annotation[
                 RawBoxes[
                  StyleBox[
                   InterpretationBox[
                    RowBox[{
                    TagBox["BSONObjectID", "SummaryHead"], "[", 
                    
                    DynamicModuleBox[{
                    Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
                    TemplateBox[{
                    PaneSelectorBox[{False -> GridBox[{{
                    GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1506\"", "SummaryItem"]}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}], True -> GridBox[{{
                    GridBox[{{
                    RowBox[{
                    TagBox["\"OID: \"", "SummaryItemAnnotation"], 
                    "\[InvisibleSpace]", 
                    TagBox["\"5a31bc93d682eea61f6c1506\"", "SummaryItem"]}]}},
                     GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, 
                    AutoDelete -> False, 
                    GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{2}}, "Rows" -> {{Automatic}}}, 
                    BaseStyle -> {
                    ShowStringCharacters -> False, NumberMarks -> False, 
                    PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
                    GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    BaselinePosition -> {1, 1}]}, 
                    Dynamic[Typeset`open$$], ImageSize -> Automatic]}, 
                    "SummaryPanel"], DynamicModuleValues :> {}], "]"}], 
                    MongoLink`BSONObjectID["5a31bc93d682eea61f6c1506"], 
                    Selectable -> False, Editable -> False, 
                    SelectWithContents -> True], FontFamily -> 
                   "Source Code Pro", FontSize -> 13, ShowStringCharacters -> 
                   True]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
                 
                  GeneralUtilities`Slice[2, 
                   Key["_id"]]], "Mouse"], 
                ImageSize -> {{60, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes["4"], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
                 
                  GeneralUtilities`Slice[2, 
                   Key["age"]]], "Mouse"], 
                ImageSize -> {{34, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation["female", 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
                 
                  GeneralUtilities`Slice[2, 
                   Key["sex"]]], "Mouse"], 
                ImageSize -> {{57.60000000000001, Full}, Automatic}, 
                Alignment -> {Left, Baseline}], 
               Pane[
                Annotation[
                 RawBoxes[
                  StyleBox[
                  "\"Thursday 14 December 2017 01:49:37:649\"", FontColor -> 
                   RGBColor[{
                    Rational[33, 74], 
                    Rational[27, 74], 
                    Rational[117, 370]}]]], 
                 TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
                 
                  GeneralUtilities`Slice[2, 
                   Key["date"]]], "Mouse"], 
                ImageSize -> {{75, Full}, Automatic}, 
                Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> {
                 MenuItem["Copy position to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Copy data to clipboard", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`copyClip]], 
                  MenuEvaluator -> Automatic], Delimiter, 
                 MenuItem["Paste position in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[
                   TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic], 
                 MenuItem["Paste data in new cell", 
                  KernelExecute[
                   TypeSystem`NestedGrid`PackagePrivate`toCurrentData[
                   TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                    TypeSystem`NestedGrid`PackagePrivate`cellPaste]], 
                  MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", 
               FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, 
             Dividers -> All, FrameStyle -> GrayLevel[0.85], 
             BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], 
            LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False,
             ShowAutoStyles -> False]], 
         TypeSystem`NestedGrid`PackagePrivate`initialQ = True, 
         TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, 
        Dynamic[
         TypeSystem`NestedGrid`PackagePrivate`setupViewPath[
         TypeSystem`NestedGrid`PackagePrivate`$path$$, If[
            Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], 
            
            Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, 
              TypeSystem`NestedGrid`PackagePrivate`tmpData$ = 
              TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[
                TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, 
             TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = 
              If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === 
                TypeSystem`NestedGrid`PackagePrivate`$NotCached, 
                TypeSystem`NestedGrid`PackagePrivate`renderedGrid, 
                TypeSystem`NestedGrid`PackagePrivate`renderGrid[
                TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
                 TypeSystem`NestedGrid`PackagePrivate`$grid$$, 898233037][
                TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[
               Not[
                FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], 
               TypeSystem`NestedGrid`PackagePrivate`renderedGrid = 
               TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; 
          TypeSystem`NestedGrid`PackagePrivate`initialQ = False; 
          TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[
            FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], 
            TypeSystem`SparseGrid[
             TypeSystem`H["(data no longer present)"]], 
            If[GeneralUtilities`$DebugMode, 
             Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, "  ", 
               TypeSystem`NestedGrid`PackagePrivate`formatState[
               TypeSystem`NestedGrid`PackagePrivate`$state$$, 
                TypeSystem`NestedGrid`PackagePrivate`$path$$, 
                TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], 
             TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], 
         TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], 
        DynamicModuleValues :> {}], 
      TypeSystem`NestedGrid`PackagePrivate`$posCell$$, 
      TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[
        TypeSystem`NestedGrid`PackagePrivate`alignBar[
        TypeSystem`NestedGrid`PackagePrivate`$state$$][
         TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[
          TypeSystem`PackageScope`Pathbar[
          TypeSystem`NestedGrid`PackagePrivate`$path$$, 
           TypeSystem`NestedGrid`PackagePrivate`updateState[
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
            TypeSystem`NestedGrid`PackagePrivate`$path$$, 
            TypeSystem`NestedGrid`PackagePrivate`$pos$$, 
            TypeSystem`NestedGrid`PackagePrivate`$grid$$, 898233037]]]], 
        TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], 
      TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[
        Dynamic[
         Replace[
          MouseAnnotation[Null], {
          TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][Null] -> 
           "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[898233037][
             Pattern[TypeSystem`NestedGrid`PackagePrivate`path, 
              Blank[]]] :> (
            TypeSystem`NestedGrid`PackagePrivate`$lastPath = 
             TypeSystem`NestedGrid`PackagePrivate`path; 
            TypeSystem`NestedGrid`PackagePrivate`makePathTrail[
             TypeSystem`NestedGrid`PackagePrivate`path, 
              TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> 
           Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], 
        FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> 
        Top, ImageSize -> {Automatic, 14}]}, 
     DynamicBox[
      ToBoxes[
       Column[
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, {
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, {
         TypeSystem`NestedGrid`PackagePrivate`$topBar$$, 
          TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[
          TypeSystem`NestedGrid`PackagePrivate`$grid$$, 
           TypeSystem`NestedGrid`PackagePrivate`$state$$, 
           TypeSystem`NestedGrid`PackagePrivate`$pos$$], 
          TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[
           TypeSystem`NestedGrid`PackagePrivate`alignBar[
           TypeSystem`NestedGrid`PackagePrivate`$state$$][
           TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> 
        If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 
          0, {{}, {0, 0.05, 0}}]], StandardForm], 
      ImageSizeCache -> {988., {84.03173828125, 91.96826171875}}, 
      TrackedSymbols :> {
       TypeSystem`NestedGrid`PackagePrivate`$state$$, 
        TypeSystem`NestedGrid`PackagePrivate`$grid$$}], 
     BaseStyle -> {LineBreakWithin -> False}, Deinitialization :> 
     TypeSystem`NestedGrid`PackagePrivate`deleteState[
      TypeSystem`NestedGrid`PackagePrivate`$state$$], 
     DynamicModuleValues :> {}, Initialization :> 
     Block[{$ContextPath = $ContextPath}, 
       Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]},
  "CopyTag",
  DisplayFunction->(#& ),
  InterpretationFunction->("Dataset[<>]"& )]], "Output",
 CellLabel->"Out[34]=",
 CellID->203881268,ExpressionUUID->"2c569218-fac0-43d8-886c-95a2cb44c6ee"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Modifying Documents", "Subsection",
 CellID->803528265,ExpressionUUID->"b03bc921-7a80-4daa-8ce9-e8fc752b2102"],

Cell[CellGroupData[{

Cell["\<\
Modify all documents with \"age\" greater than 4 so that \"age\" becomes 10:\
\>", "Text",
 CellID->1236493762,ExpressionUUID->"0a07aa3a-cb11-4bbf-8fb5-ef02662943ba"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MongoCollectionUpdateMany", "[", 
  RowBox[{"coll", ",", 
   RowBox[{"<|", 
    RowBox[{"\"\<age\>\"", "\[Rule]", 
     RowBox[{"<|", 
      RowBox[{"\"\<$gt\>\"", "\[Rule]", "4"}], "|>"}]}], "|>"}], ",", 
   RowBox[{"<|", 
    RowBox[{"\"\<$set\>\"", "\[Rule]", 
     RowBox[{"<|", 
      RowBox[{"\"\<age\>\"", "\[Rule]", "10"}], "|>"}]}], "|>"}]}], 
  "]"}]], "Input",
 CellLabel->"In[35]:=",
 CellID->688843476,ExpressionUUID->"a58b1e3e-3979-4c86-a260-e99d1695a4b7"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Acknowledged\"\>", "\[Rule]", "True"}], ",", 
   RowBox[{"\<\"MatchedCount\"\>", "\[Rule]", "1"}], ",", 
   RowBox[{"\<\"ModifiedCount\"\>", "\[Rule]", "1"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[35]=",
 CellID->422349727,ExpressionUUID->"b64c48c8-ac3e-47e2-ab41-776cd0ca8752"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Deleting Documents", "Subsection",
 CellID->609504799,ExpressionUUID->"f4a18313-bbf9-4025-b3d0-62d12c443253"],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Warning",
  FontWeight->"Bold"],
 ": deleting documents is dangerous, can cannot easily be undone. Delete all \
documents in a collection with \"age\" of 3:"
}], "Text",
 CellID->1821712323,ExpressionUUID->"ac8eb880-3270-43a0-893b-db90a879553b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MongoCollectionDeleteMany", "[", 
  RowBox[{"coll", ",", 
   RowBox[{"<|", 
    RowBox[{"\"\<age\>\"", "\[Rule]", "3"}], "|>"}]}], "]"}]], "Input",
 CellLabel->"In[36]:=",
 CellID->447597675,ExpressionUUID->"be05d06b-50be-471f-bcba-592ace676749"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Acknowledged\"\>", "\[Rule]", "True"}], ",", 
   RowBox[{"\<\"DeletedCount\"\>", "\[Rule]", "1"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[36]=",
 CellID->1178580524,ExpressionUUID->"31ef6eed-d8ef-4e80-b0fb-1f10c4c23991"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Delete all documents in a collection:", "Text",
 CellID->549525829,ExpressionUUID->"27e32725-3da4-48ca-9f6d-825200349456"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MongoCollectionDeleteMany", "[", 
  RowBox[{"coll", ",", 
   RowBox[{"<|", "|>"}]}], "]"}]], "Input",
 CellLabel->"In[37]:=",
 CellID->597424535,ExpressionUUID->"b1d9f4f3-df35-424d-8cf1-3d9e84d37bd7"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"Acknowledged\"\>", "\[Rule]", "True"}], ",", 
   RowBox[{"\<\"DeletedCount\"\>", "\[Rule]", "2"}]}], 
  "\[RightAssociation]"}]], "Output",
 CellLabel->"Out[37]=",
 CellID->1223660000,ExpressionUUID->"8bae995b-2847-4caf-b27b-36d81ad06963"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "TutorialMoreAboutSection",
 CellID->23220180,ExpressionUUID->"8a596118-8023-48a9-9405-713267d3ab88"],

Cell["XXXX", "TutorialMoreAbout",
 CellID->1567025153,ExpressionUUID->"5c11aa1b-4ba1-4155-b445-18614f889739"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Tutorials", "RelatedTutorialsSection",
 CellID->415694126,ExpressionUUID->"30da5c77-57ce-42bb-86b0-000581ccb3f3"],

Cell["XXXX", "RelatedTutorials",
 CellID->806871991,ExpressionUUID->"af48a6c6-69d5-474c-8727-811e85178263"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Wolfram Training Courses", "TutorialRelatedLinksSection",
 CellID->415694148,ExpressionUUID->"e67dd672-9fd6-4f3b-a06c-6d96e4048c64"],

Cell["XXXX", "TutorialRelatedLinks",
 CellID->415694149,ExpressionUUID->"ad520563-9aeb-4953-80eb-f495aa838ea9"]
}, Open  ]]
}, Open  ]]
},
ScreenStyleEnvironment->"ExperimentalObject",
WindowSize->{1354, 1034},
WindowMargins->{{Automatic, 428}, {Automatic, 0}},
TaggingRules->{
 "DocuToolsSettingsInternal" -> {
   "$PacletVersion" -> "0.9.2028", "$MVersion" -> "11.2", "$FlaggedVersion" -> 
    11.1, "$ApplicationName" -> "mongolink", "$LinkBase" -> "mongolink", 
    "$ApplicationDirectory" -> "/Users/meghanr/git/repos/mongolink/", 
    "$DocumentationDirectory" -> 
    "/Users/meghanr/git/repos/mongolink/Documentation/English/", 
    "$UseNewPageDialog" -> ""}, "Author" -> "meghanr", "CreationDate" -> 
  "07-11-2017 17:14:57", "AnnotationsDeleted" -> True},
Magnification:>1.5 Inherited,
FrontEndVersion->"11.3 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 3, \
2018)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "TutorialPageStyles.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 601, 14, 35, "History",ExpressionUUID->"b3acf963-77f0-4acc-b3b1-01284f278fd8",
 CellID->1247902091],
Cell[1162, 36, 139, 1, 29, "AuthorDate",ExpressionUUID->"9b4024b8-2d77-4550-85a4-99cf12271ec4",
 CellID->817336632],
Cell[CellGroupData[{
Cell[1326, 41, 123, 1, 42, "CategorizationSection",ExpressionUUID->"131cad27-bf81-44ed-8bdd-8461ff05b424",
 CellID->1122911449],
Cell[1452, 44, 136, 2, 44, "Categorization",ExpressionUUID->"578e4d23-0382-4326-8c1a-319f1b8c1c5e",
 CellID->686433507],
Cell[1591, 48, 137, 2, 44, "Categorization",ExpressionUUID->"738d04f0-ff33-4a6d-bd45-b4ab5b312956",
 CellID->605800465],
Cell[1731, 52, 134, 2, 44, "Categorization",ExpressionUUID->"d10e7617-8943-4aef-9bec-6dce239966f0",
 CellID->468444828],
Cell[1868, 56, 142, 1, 44, "Categorization",ExpressionUUID->"7f107846-aadc-4ae1-ae85-9d4e752dd934"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2047, 62, 111, 1, 42, "SynonymsSection",ExpressionUUID->"ebd8177a-2846-4c14-a259-39a91c2936ab",
 CellID->1427418553],
Cell[2161, 65, 100, 1, 528, "Synonyms",ExpressionUUID->"4f2c3275-c4e6-450c-a4c6-59a92c9d23f8",
 CellID->1251652828]
}, Closed]],
Cell[CellGroupData[{
Cell[2298, 71, 111, 1, 26, "KeywordsSection",ExpressionUUID->"68fd4283-1b4f-408e-943b-11eaa952aa00",
 CellID->1427428552],
Cell[2412, 74, 127, 1, 27, "Keywords",ExpressionUUID->"61f70817-b4f2-4df9-8c08-3d9cf8ebdd50",
 CellID->1251852827]
}, Open  ]],
Cell[CellGroupData[{
Cell[2576, 80, 108, 1, 42, "DetailsSection",ExpressionUUID->"b9f9bd79-beb7-48cf-8795-804d8111fad1",
 CellID->307771771],
Cell[2687, 83, 118, 2, 528, "Details",ExpressionUUID->"67a5466a-9fee-49c0-b8f1-1b7b47ff346d",
 CellID->115134701],
Cell[2808, 87, 124, 2, 528, "Details",ExpressionUUID->"9fc76e00-3782-4754-a000-5c0d7bd86c4c",
 CellID->350963985],
Cell[2935, 91, 121, 2, 528, "Details",ExpressionUUID->"de3255c7-8280-4289-9788-8812f70f8e52",
 CellID->787641479],
Cell[3059, 95, 126, 2, 528, "Details",ExpressionUUID->"0cae59fb-3258-420b-b4e0-c1088463f991",
 CellID->489188983],
Cell[3188, 99, 116, 2, 528, "Details",ExpressionUUID->"b07f7991-8242-4eb9-8f21-f38cbe61adf8",
 CellID->267986155],
Cell[3307, 103, 115, 2, 528, "Details",ExpressionUUID->"a6010038-cea5-4444-8a2b-b82ab62fdb8b",
 CellID->55052072],
Cell[3425, 107, 118, 2, 528, "Details",ExpressionUUID->"c1b4a2e6-7b5a-47fa-9061-872d45315ea9",
 CellID->125741376],
Cell[3546, 111, 132, 2, 528, "Details",ExpressionUUID->"298b53ab-abe3-47a8-aef3-62af9690dcd7",
 CellID->31040295],
Cell[3681, 115, 122, 2, 528, "Details",ExpressionUUID->"b2b6ac9a-f7ff-44fb-9db1-213d94bd234e",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[3840, 122, 114, 1, 122, "Title",ExpressionUUID->"6a1ad868-7ab1-4ab2-b808-39ad993df5ea",
 CellID->509267359],
Cell[3957, 125, 794, 24, 57, "Text",ExpressionUUID->"77fa2771-b632-4320-9879-d1346e27ef77",
 CellID->774160482],
Cell[4754, 151, 429, 10, 57, "Text",ExpressionUUID->"57bd6018-7502-4ee4-b434-ade3c5b53b9e",
 CellID->1811460344],
Cell[CellGroupData[{
Cell[5208, 165, 122, 1, 55, "Subsection",ExpressionUUID->"9cf6ee81-2631-479d-9e3a-e0c7ca271b08",
 CellID->890255051],
Cell[CellGroupData[{
Cell[5355, 170, 107, 1, 33, "Text",ExpressionUUID->"4ac2b6a7-f9e6-4f3b-a4bf-2d97cc633ab5",
 CellID->2123252264],
Cell[5465, 173, 174, 3, 41, "Input",ExpressionUUID->"e0e00b8a-ae36-4423-975c-7ae12c14545d",
 CellID->783915468]
}, Open  ]],
Cell[CellGroupData[{
Cell[5676, 181, 520, 12, 60, "Text",ExpressionUUID->"f613f29c-0307-4358-9e8e-a6385a2d0594",
 CellID->1490502931],
Cell[CellGroupData[{
Cell[6221, 197, 187, 4, 41, "Input",ExpressionUUID->"ef87ce5c-7ece-4991-8253-c2d7cfaf99e9",
 CellID->2058623809],
Cell[6411, 203, 2365, 51, 64, "Output",ExpressionUUID->"0420cd18-d307-46fd-b9bf-5aef460e2f00",
 CellID->430097690]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8825, 260, 142, 1, 33, "Text",ExpressionUUID->"2989d87d-bf12-4a3f-8bfc-c1ab6748a039",
 CellID->433122057],
Cell[CellGroupData[{
Cell[8992, 265, 344, 8, 41, "Input",ExpressionUUID->"d7af958d-1a83-4288-b74e-3fa05f8cd120",
 CellID->1246814610],
Cell[9339, 275, 2366, 51, 64, "Output",ExpressionUUID->"13159e5d-1cac-4e78-bb95-d5b024620e9d",
 CellID->1663457543]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11754, 332, 379, 10, 33, "Text",ExpressionUUID->"3aa3756e-63e3-4d64-92d1-087d5f64bd9b",
 CellID->128274779],
Cell[CellGroupData[{
Cell[12158, 346, 228, 6, 41, "Input",ExpressionUUID->"2f74bc32-d99a-44c6-947f-2bfe6a80c08d",
 CellID->75053706],
Cell[12389, 354, 2366, 51, 64, "Output",ExpressionUUID->"0f4cb3e5-158d-4570-b153-c139b17c5142",
 CellID->1581134955]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[14816, 412, 190, 2, 58, "Subsection",ExpressionUUID->"e7959c42-3e89-4dfa-96f5-9df1aa395c98",
 CellID->1723258136],
Cell[CellGroupData[{
Cell[15031, 418, 447, 11, 33, "Text",ExpressionUUID->"e74e825c-3346-4b9f-a23f-1d47b8f73640",
 CellID->882393254],
Cell[CellGroupData[{
Cell[15503, 433, 178, 3, 41, "Input",ExpressionUUID->"5f9a60ce-feee-4a0b-9e8d-3e5b5018caf6",
 CellID->1836483588],
Cell[15684, 438, 289, 6, 39, "Output",ExpressionUUID->"4c4faaf6-07b9-47cd-9e10-85b677c6da21",
 CellID->228931126]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16022, 450, 114, 1, 33, "Text",ExpressionUUID->"5a88c78a-1f2d-41d0-ba1c-b3c7ef56a6d2",
 CellID->2129001956],
Cell[CellGroupData[{
Cell[16161, 455, 203, 4, 41, "Input",ExpressionUUID->"f28e5f4f-18b2-4a13-bd5b-e73025f47c83",
 CellID->1572603381],
Cell[16367, 461, 2854, 61, 80, "Output",ExpressionUUID->"7b1c1682-cce5-4fd0-a372-edbc11f0e6ba",
 CellID->163055421]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19270, 528, 127, 1, 33, "Text",ExpressionUUID->"9715e9a1-5e16-414f-aced-d8714ad2fd20",
 CellID->1007565939],
Cell[CellGroupData[{
Cell[19422, 533, 242, 5, 41, "Input",ExpressionUUID->"60a28071-58fa-48c5-b5b9-243b37c5d17c",
 CellID->1938674796],
Cell[19667, 540, 2854, 61, 80, "Output",ExpressionUUID->"a49538c9-f584-4f66-988b-0dac7f22d0d3",
 CellID->744666744]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[22582, 608, 191, 2, 58, "Subsection",ExpressionUUID->"b3f29d96-cbf2-4d20-b469-fa6fde8a6e89",
 CellID->575465111],
Cell[CellGroupData[{
Cell[22798, 614, 446, 12, 33, "Text",ExpressionUUID->"7e2671d0-21b3-44a9-a8df-49ca2faf8dc4",
 CellID->2015143029],
Cell[CellGroupData[{
Cell[23269, 630, 199, 4, 41, "Input",ExpressionUUID->"3ac84864-4fc6-4a60-8a8e-77d28ee0e8ed",
 CellID->1775497189],
Cell[23471, 636, 3272, 69, 101, "Output",ExpressionUUID->"e159af58-08f2-4301-b720-95487d364d69",
 CellID->2133729099]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[26792, 711, 124, 1, 33, "Text",ExpressionUUID->"668dd906-343e-4557-8aa3-36d4fc02e966",
 CellID->26866143],
Cell[CellGroupData[{
Cell[26941, 716, 240, 5, 41, "Input",ExpressionUUID->"50ff1664-b624-49aa-9319-369c07d67622",
 CellID->1052116792],
Cell[27184, 723, 3271, 69, 101, "Output",ExpressionUUID->"131683ff-5a69-411c-921a-a8dc94b5edf6",
 CellID->701825466]
}, Open  ]]
}, Open  ]],
Cell[30482, 796, 359, 7, 81, "Text",ExpressionUUID->"3fcdf8fa-c19e-4cf7-925f-a69b6528c4e2",
 CellID->1417928168]
}, Open  ]],
Cell[CellGroupData[{
Cell[30878, 808, 107, 1, 58, "Subsection",ExpressionUUID->"eb49e267-b1ae-4000-97e9-e7d43e9abd31",
 CellID->1836679249],
Cell[CellGroupData[{
Cell[31010, 813, 524, 11, 85, "Text",ExpressionUUID->"3645cf52-1a29-4faf-a200-4a6ef3934a22",
 CellID->348395779],
Cell[CellGroupData[{
Cell[31559, 828, 368, 9, 41, "Input",ExpressionUUID->"d033e911-c70f-482f-81dd-2f39c0c92413",
 CellID->1904949283],
Cell[31930, 839, 920, 20, 54, "Output",ExpressionUUID->"06592b21-a6e6-46cc-976c-3b63803e9d7b",
 CellID->776550139]
}, Open  ]]
}, Open  ]],
Cell[32877, 863, 390, 10, 37, "Text",ExpressionUUID->"b17e4691-bf3b-4181-8038-69a2f182f56f",
 CellID->518034447]
}, Open  ]],
Cell[CellGroupData[{
Cell[33304, 878, 142, 1, 58, "Subsection",ExpressionUUID->"b3a29b56-1649-471e-8a15-41574a119c3d",
 CellID->166814131],
Cell[CellGroupData[{
Cell[33471, 883, 276, 6, 36, "Text",ExpressionUUID->"179a04e3-fda0-40ac-b52d-5d9ced1be073",
 CellID->1939290392],
Cell[CellGroupData[{
Cell[33772, 893, 233, 5, 41, "Input",ExpressionUUID->"81411af9-80fe-4afa-be93-fb89ee539517",
 CellID->598403327],
Cell[34008, 900, 2884, 61, 81, "Output",ExpressionUUID->"90bd6d45-eb47-4c8a-a345-a0d9d6396316",
 CellID->1062890344]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36941, 967, 132, 1, 33, "Text",ExpressionUUID->"9942e14e-4509-443e-9395-35473c447a74",
 CellID->1292760799],
Cell[CellGroupData[{
Cell[37098, 972, 204, 4, 41, "Input",ExpressionUUID->"7d8933a7-a9b1-4971-9167-684ab05c180e",
 CellID->1639233800],
Cell[37305, 978, 2508, 52, 64, "Output",ExpressionUUID->"9ac668aa-0b13-4198-814c-d1618d187acd",
 CellID->1795531912]
}, Open  ]]
}, Open  ]],
Cell[39840, 1034, 696, 17, 64, "Text",ExpressionUUID->"e4567ee4-fea2-4b8c-8abe-549471265bf2",
 CellID->2092489834],
Cell[CellGroupData[{
Cell[40561, 1055, 435, 10, 37, "Text",ExpressionUUID->"522ae59d-2332-4b50-a8a4-29cf5253df8d",
 CellID->1067457831],
Cell[CellGroupData[{
Cell[41021, 1069, 188, 4, 41, "Input",ExpressionUUID->"30ab5aac-7810-4119-af88-8c1958a20d48",
 CellID->1132788613],
Cell[41212, 1075, 16899, 326, 193, "Output",ExpressionUUID->"dddffd83-0bce-4e31-88ef-d8410d8bff07",
 CellID->801493738]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[58172, 1408, 143, 1, 58, "Subsection",ExpressionUUID->"48cf8264-7065-4f4f-83c0-215065cea9cc",
 CellID->168646266],
Cell[CellGroupData[{
Cell[58340, 1413, 202, 4, 33, "Text",ExpressionUUID->"ea0c406a-b76b-49db-80e3-8117ebe301d8",
 CellID->1067517718],
Cell[CellGroupData[{
Cell[58567, 1421, 715, 18, 71, "Input",ExpressionUUID->"ae71ea05-67e6-4321-8898-e4b7c8de2f70",
 CellID->1804895542],
Cell[59285, 1441, 1829, 40, 101, "Output",ExpressionUUID->"f30d79e9-7e40-47ad-91a1-4ed2ec289d70",
 CellID->1545199584]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[61163, 1487, 138, 1, 33, "Text",ExpressionUUID->"a18b00a3-1964-4e63-a6ee-f4f79fe069ed",
 CellID->776035871],
Cell[CellGroupData[{
Cell[61326, 1492, 153, 2, 40, "Input",ExpressionUUID->"591ffddb-ab84-4053-aaa9-4439cc1f7beb",
 CellID->1514949325],
Cell[61482, 1496, 2943, 62, 81, "Output",ExpressionUUID->"c0ffc898-e3ce-4a4d-8324-761581249514",
 CellID->1125176869]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[64486, 1565, 123, 1, 58, "Subsection",ExpressionUUID->"a43d7783-68c9-4cf4-9bc4-8cb7a84eafef",
 CellID->2083645014],
Cell[CellGroupData[{
Cell[64634, 1570, 458, 10, 61, "Text",ExpressionUUID->"1fce7595-2e1d-4ad8-a858-226fb09aef39",
 CellID->323277622],
Cell[CellGroupData[{
Cell[65117, 1584, 177, 3, 41, "Input",ExpressionUUID->"3db80437-330a-4097-9aba-417f010962c6",
 CellID->500010179],
Cell[65297, 1589, 3566, 74, 112, "Output",ExpressionUUID->"75189282-372a-4ac1-b60a-f1eef4251d17",
 CellID->1346780827]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[68912, 1669, 171, 3, 33, "Text",ExpressionUUID->"6ea2a00a-69ae-4893-a992-1f0b51a5a9e1",
 CellID->1321954482],
Cell[CellGroupData[{
Cell[69108, 1676, 262, 6, 41, "Input",ExpressionUUID->"3b550556-35ec-4323-adde-5bb5bbf10a62",
 CellID->669345516],
Cell[69373, 1684, 3564, 74, 112, "Output",ExpressionUUID->"340a7eb8-8430-4085-9a63-c496a6a97949",
 CellID->1527780651]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[72986, 1764, 496, 12, 57, "Text",ExpressionUUID->"02ca0d08-6cd9-4c5b-b8ed-35490192f1d0",
 CellID->269716424],
Cell[CellGroupData[{
Cell[73507, 1780, 418, 11, 41, "Input",ExpressionUUID->"292fec7b-b0b4-40c1-ba47-f3429bad5a6b",
 CellID->691361436],
Cell[73928, 1793, 2753, 57, 64, "Output",ExpressionUUID->"a81f969a-f7f3-4620-8aee-8fa1811f7754",
 CellID->90607946]
}, Open  ]]
}, Open  ]],
Cell[76708, 1854, 229, 4, 57, "Text",ExpressionUUID->"ea42d3e1-0ff4-4cd5-afbc-71d67b78ba82",
 CellID->395979520],
Cell[76940, 1860, 487, 11, 57, "Text",ExpressionUUID->"bd6c9e96-66f2-4c78-8bc9-0177f6ad85f1",
 CellID->1597390517]
}, Open  ]],
Cell[CellGroupData[{
Cell[77464, 1876, 124, 1, 58, "Subsection",ExpressionUUID->"37f41b1b-9035-4941-9992-521d2865ee61",
 CellID->1881780685],
Cell[CellGroupData[{
Cell[77613, 1881, 920, 21, 65, "Text",ExpressionUUID->"aa1e6a84-459c-4f53-8c7d-64f24e1d242b",
 CellID->1299133495],
Cell[CellGroupData[{
Cell[78558, 1906, 201, 4, 41, "Input",ExpressionUUID->"e9427189-70f0-4bd8-a633-206b2dc09ce7",
 CellID->1070411416],
Cell[78762, 1912, 2435, 53, 64, "Output",ExpressionUUID->"4720d3ea-16ce-4fd7-9fa1-9519d4601e0f",
 CellID->495553696]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[81246, 1971, 810, 22, 37, "Text",ExpressionUUID->"d932a628-e669-41d9-9b1a-8ab7524e8056",
 CellID->1577475391],
Cell[CellGroupData[{
Cell[82081, 1997, 160, 3, 41, "Input",ExpressionUUID->"eea20726-d54e-4c6d-ba5a-338693ac5b5b",
 CellID->1390427678],
Cell[82244, 2002, 3565, 74, 112, "Output",ExpressionUUID->"24134e6e-4718-4151-a39f-65a66825462f",
 CellID->281362338]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[85858, 2082, 609, 16, 37, "Text",ExpressionUUID->"e91283a9-fd76-4671-8f01-7f00636a0e56",
 CellID->724185105],
Cell[CellGroupData[{
Cell[86492, 2102, 190, 4, 41, "Input",ExpressionUUID->"45c2506e-faa9-485a-ad1f-08f07a152036",
 CellID->2095618494],
Cell[86685, 2108, 7386, 152, 218, "Output",ExpressionUUID->"60e1290a-7170-4061-8331-ebc3404963ea",
 CellID->124635314]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[94120, 2266, 538, 15, 37, "Text",ExpressionUUID->"ab6d0dea-e4ab-4592-b871-c3cf468552ea",
 CellID->399827539],
Cell[94661, 2283, 159, 3, 41, "Input",ExpressionUUID->"131f3a7d-7645-4657-bda2-b461ceb39479",
 CellID->925149521]
}, Open  ]],
Cell[CellGroupData[{
Cell[94857, 2291, 162, 3, 33, "Text",ExpressionUUID->"7cedd925-bde2-492f-b989-e2983e49306c",
 CellID->2095902991],
Cell[CellGroupData[{
Cell[95044, 2298, 201, 4, 41, "Input",ExpressionUUID->"e1e3fd45-41d0-4c53-81d7-93d9cf15a606",
 CellID->1763103434],
Cell[95248, 2304, 2436, 53, 64, "Output",ExpressionUUID->"559efce3-5240-4416-b5e8-20deda43b694",
 CellID->1983798703]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[97733, 2363, 338, 9, 37, "Text",ExpressionUUID->"ae4927f4-777f-4607-a1d2-35c7382b07d8",
 CellID->1200676525],
Cell[CellGroupData[{
Cell[98096, 2376, 163, 3, 41, "Input",ExpressionUUID->"0b699488-ec67-443f-ad35-a3cd42778a03",
 CellID->1402054679],
Cell[98262, 2381, 29390, 577, 249, "Output",ExpressionUUID->"724d4728-3fa3-4768-a0a4-f467895abf9f",
 CellID->322990193]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[127701, 2964, 232, 4, 57, "Text",ExpressionUUID->"95a130c7-df76-4765-a973-29244e7ac3ec",
 CellID->673496098],
Cell[CellGroupData[{
Cell[127958, 2972, 507, 14, 71, "Input",ExpressionUUID->"24dd9763-341f-40d6-be3c-ea334ead8ff1",
 CellID->1909527337],
Cell[CellGroupData[{
Cell[128490, 2990, 2432, 50, 58, "Print",ExpressionUUID->"ad27f0a5-7016-455a-a529-09d7431f30e0",
 CellID->1820209213],
Cell[130925, 3042, 2432, 50, 58, "Print",ExpressionUUID->"a3d26aff-e961-4184-8371-8b933c31efaf",
 CellID->1351691376],
Cell[133360, 3094, 2432, 50, 58, "Print",ExpressionUUID->"dd9aff61-be7b-42f7-907b-36793306613d",
 CellID->1794938466]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[135831, 3149, 141, 1, 33, "Text",ExpressionUUID->"d9dbae1e-b591-48f1-97ef-060c200559d8",
 CellID->1586063811]
}, Open  ]],
Cell[CellGroupData[{
Cell[136009, 3155, 123, 1, 58, "Subsection",ExpressionUUID->"09ca7de6-7a38-4730-8d44-73b08dee6e0e",
 CellID->474330942],
Cell[CellGroupData[{
Cell[136157, 3160, 124, 1, 33, "Text",ExpressionUUID->"d64d72a5-6867-49fd-b089-1e83e266f2f1",
 CellID->2121174909],
Cell[CellGroupData[{
Cell[136306, 3165, 220, 5, 41, "Input",ExpressionUUID->"71f1a39c-1c7c-4bb9-bc55-c0ba21c9de9e",
 CellID->1765907730],
Cell[136529, 3172, 2436, 53, 64, "Output",ExpressionUUID->"67985f50-38e4-44e9-a95d-32f46cd20d09",
 CellID->1980385139]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[139014, 3231, 310, 9, 37, "Text",ExpressionUUID->"36b73bd5-88f0-4e17-8550-f82ca342aca8",
 CellID->745556059],
Cell[CellGroupData[{
Cell[139349, 3244, 165, 3, 41, "Input",ExpressionUUID->"036f19d9-5aae-4e91-a648-5425b3d1a210",
 CellID->1369848861],
Cell[139517, 3249, 24686, 482, 193, "Output",ExpressionUUID->"2c569218-fac0-43d8-886c-95a2cb44c6ee",
 CellID->203881268]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[164264, 3738, 116, 1, 58, "Subsection",ExpressionUUID->"b03bc921-7a80-4daa-8ce9-e8fc752b2102",
 CellID->803528265],
Cell[CellGroupData[{
Cell[164405, 3743, 176, 3, 33, "Text",ExpressionUUID->"0a07aa3a-cb11-4bbf-8fb5-ef02662943ba",
 CellID->1236493762],
Cell[CellGroupData[{
Cell[164606, 3750, 494, 13, 71, "Input",ExpressionUUID->"a58b1e3e-3979-4c86-a260-e99d1695a4b7",
 CellID->688843476],
Cell[165103, 3765, 371, 8, 39, "Output",ExpressionUUID->"b64c48c8-ac3e-47e2-ab41-776cd0ca8752",
 CellID->422349727]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[165535, 3780, 115, 1, 58, "Subsection",ExpressionUUID->"f4a18313-bbf9-4025-b3d0-62d12c443253",
 CellID->609504799],
Cell[CellGroupData[{
Cell[165675, 3785, 272, 6, 57, "Text",ExpressionUUID->"ac8eb880-3270-43a0-893b-db90a879553b",
 CellID->1821712323],
Cell[CellGroupData[{
Cell[165972, 3795, 270, 6, 41, "Input",ExpressionUUID->"be05d06b-50be-471f-bcba-592ace676749",
 CellID->447597675],
Cell[166245, 3803, 312, 7, 39, "Output",ExpressionUUID->"31ef6eed-d8ef-4e80-b0fb-1f10c4c23991",
 CellID->1178580524]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[166606, 3816, 128, 1, 33, "Text",ExpressionUUID->"27e32725-3da4-48ca-9f6d-825200349456",
 CellID->549525829],
Cell[CellGroupData[{
Cell[166759, 3821, 224, 5, 41, "Input",ExpressionUUID->"b1d9f4f3-df35-424d-8cf1-3d9e84d37bd7",
 CellID->597424535],
Cell[166986, 3828, 312, 7, 39, "Output",ExpressionUUID->"8bae995b-2847-4caf-b27b-36d81ad06963",
 CellID->1223660000]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[167359, 3842, 120, 1, 107, "TutorialMoreAboutSection",ExpressionUUID->"8a596118-8023-48a9-9405-713267d3ab88",
 CellID->23220180],
Cell[167482, 3845, 109, 1, 32, "TutorialMoreAbout",ExpressionUUID->"5c11aa1b-4ba1-4155-b445-18614f889739",
 CellID->1567025153]
}, Open  ]],
Cell[CellGroupData[{
Cell[167628, 3851, 127, 1, 107, "RelatedTutorialsSection",ExpressionUUID->"30da5c77-57ce-42bb-86b0-000581ccb3f3",
 CellID->415694126],
Cell[167758, 3854, 107, 1, 32, "RelatedTutorials",ExpressionUUID->"af48a6c6-69d5-474c-8727-811e85178263",
 CellID->806871991]
}, Open  ]],
Cell[CellGroupData[{
Cell[167902, 3860, 146, 1, 107, "TutorialRelatedLinksSection",ExpressionUUID->"e67dd672-9fd6-4f3b-a06c-6d96e4048c64",
 CellID->415694148],
Cell[168051, 3863, 111, 1, 32, "TutorialRelatedLinks",ExpressionUUID->"ad520563-9aeb-4953-80eb-f495aa838ea9",
 CellID->415694149]
}, Open  ]]
}, Open  ]]
}
]
*)

